ESL-TR-88-24 


ENVIRONMENTAL  INTERACTIONS  OF 
HYDRAZINE  FUELS  IN 
SOIL/WATER  SYSTEMS 

J.  STREET,  C.  JOHNSTON,  L.  OU,  R.  MANSELL 
S.  BLOOM 

SOIL  SCIENCE  DEPARTMENT 
UNIVERSITY  OF  FLORIDA 
GAINESVILLE  FL  32611 

OCTOBER  1988 

FINAL  REPORT 

MARCH  1985  -  SEPTEMBER  1987 


APPROVED  FOR  PUBLIC  RELEASE:  DISTRIBUTION  UNLIMITED 


ENGINEERING  &  SERVICES  LABORATORY 
AIR  FORCE  ENGINEERING  &  SERVICES  CENTER 
TYNDALL  AIR  FORCE  BASE,  FLORIDA  32403 

89  3  31  076 


DTIC 

iELECTEI 

^  3  APR  1989 1 


D 


Best 

Available 

Copy 


NOTICE 


Please  do  not  request  copies  of  this  report  from 
HQ  AFESC/RD  (Engineering  and  Services  Laboratory). 
Additional  copies  may  be  purchased  from: 

National  Technical  Information  Service 
5285  Port  Royal  Road 

SPRINGFIELD/  VIRGINIA  22161 


Federal  Government  Agencies  and  their  contractors 

REGISTERED  WITH  DEFENSE  TECHNICAL  INFORMATION  CENTER 
SHOULD  DIRECT  REQUESTS  FOR  COPIES  OF  THIS  REPORT  TO: 


Defense  Technical  Information  Center 
Cameron  Station 
Alexandria/  Virginia  2231H 


/ 


UNCLASSIFIED 

SECURTY  CuASS  :  CATiON  0=  TmS  =AGE 


REPORT  DOCUMENTATION  PAGE 


•a.  REPORT  SECuR  'Y  CLASS'1  CAT  ON 


13  RESTRICTIVE  MARKINGS 


V  V 


Form  Approved 
OMB  No.  0704-0188 


UNCLASSIFIED 


|  2a  SECURITY  CLASSIFICATION  AUTHORITY 

3  DISTRIBUTION /AVAILABILITY  OF  REPORT 

Approved  for  Public  Release 

Distribution  Unlimited 

2b.  DECLASSIFICATION /DOWNGRADING  SCHEDULE 

4.  PERFORMING  ORGANiZATlON  REPORT  NUMBER(S) 

5  MONITORING  ORGANIZATION  REPORT  NUMBER(S) 

ESL-TR-88-24 

6a.  NAME  OF  PERFORMING  ORGANIZATION 

Soil  Science  Department 

6b  OFF.CE  SYM80L 
(if  applicable) 

7a.  NAME  OF  MONITORING  ORGANIZATION 

Air  Force  Engineering  and  Services  Center 

6c.  ADDRESS  (City,  State,  and  ZIP  Code) 

7b  ADDRESS  (C/ty,  State,  and  ZIP  Code) 

University  of  Florida 
Gainesville  FL  32611 


HQ  AFESC/RDVS 

Tyndall  AFB  FL  32403-6001 


8a.  NAME  OF  FUNDING  /  SPONSORING 
ORGANIZATION 


8b  OFFICE  SYMBOL 


9  PROCUREMENT  INSTRUMENT  IDENTIFICATION  NUMBER 


(If  applicable) 


AFESC 

RDV 

F08635-83 

-C-0136 

_ 

3c.  ADDRESS  (City,  State,  and  ZIP  Code) 

10  SOURCE  OF  FUNDING  NUMBERS  | 

HQ  AFESC/RDVS 

Tyndall  AFB  FL  32403-60C1 

PROGRAM 
ELEMENT  NO 

6.1 

PROJECT 

NO 

1900 

TASK 

NO 

2072 

WORK  UNIT 
ACCESSION  NO 

Ml.  TlTci:  (Include  Security  Classification )  { 

Environmental  Interactions  of  Hydrazine  Fuels  in  Soil/Water  Systems 

UNCLASSIFIED  _ 

12.  PERSONAL  AUTHOR(S) 

Jimmy  Street,  Clifford  Johnston,  Li  Ou,  Robert  Mansell,  and  Steve  Bloom 


13a.  TYPE  OF  REPORT 

Final 

13b  TIME  COVERED 
from  Mar  85  to  Sep  87 

14.  DATE  OF  REPORT  (Year,  Month,  Day) 
October  1988 

15.  PAGE  COUNT 

16.  SUPPLEMENTARY  NOTATION 


Availability  of  this  report  is  specified  on  reverse  of  front  cover. 


17. 

COSATI 

CODES 

18.  SUBJECT  TERMS  {Continue  on  reverse  if  necessary  and  identify  by  block  number)  %  | 

field 

GROUP 

SUB-GROUP 

Hydrazine 

Transport  Modeling  V  vV hi'  i- 

07 

04 

Monomethylhydrazine 

Degradation  U)o  ^  0F-- 

08 

04 

Interactions 

Soil  Column  Studies  <So \\ "v'iWuvWof .  , 

'9..ABSTRACJ  \Con£mue^ on  reverse  ^necessary  and  identify  by  block  number)  opp^)  |  'TU  '  O-bA «f  '0(«4'iOI\, 

— The'  studies  of~tW  Attractions  of  hydrazine  in  aqueods  and  soil  systems  are  presented 

in  this  technical  report.  ^The  studies  are  divided  ^ntb  the  following  five  areas:  aqueous 
and  soil  suspension  studies,  surface  interaction  studies,  biological  interaction  studies, 
soil  column  studies,  and  soil  transport  modeling  The  objective  of  this  work  is  to 
determine  the  fate  of  hydrazine  fuel  released  into  an  aqueous  or  soil  environment. 

Aqueous  degradation  studies  reveal  that  the  extent  of  hydrazine  degradation  and  the 
products  formed  are  highly  dependent  upon  several  variables.  Among  these  include  the  type 
of  container  used  in  the  studies,  the  presence  of  certain  metal  ions,  the  ionic  strength, 
the  presence  and  type  of  pH  buffer,  the  temperature,  the  presence  of  bacteria,  and  the 
amount  of  dissolved  oxygen.'  Ijj^ha-rticular,  ^kqueous  hydrazine  degradation  is  particularly 
rapid  in  quartz  vessels  withCCu+3  ions  and  oxygen  present.  Degradation  also  increases 
with  increasing  ionic  strength,  pH  buffer  concentration,  temperature,  and  bacteria  \ 
content: — TTI'the  presence  of  Cu+^  ions,  ammonia  is  formed  as  a  product 


20  DISTRIBUTION /AVAILABILITY  o=  ABSTRACT  j 

□  UNCLASSIFIED/UNLIMITED  □  SAME  AS  PPT  □  OTIC  USERS  | 

2'  ABSTRACT  SECURlTv  CLASSIFICATION  ’ 

UNCLASSIFIED 

22a  NAME  OF  RESPONSIBLE  INDIVIDUAL  1 

Capt  Floyd  L.  Wiseman  j 

22b  TELEPHONE  (include  Area  Code) 
(904)  283-4234 

22c  O-  CE  S'MBO- 
HQ  .AFESC/RDVS 

DO  Form  1473,  JUN  86  Previous  editions  are  obsolete  _ SECURITY  Classification  of  -his  page 


i 


UNCLASSIFIED 


_ UNCLASSIFIED _ 

SECURITY  CLASSIFICATION  OF  THIS  PAGE 


In  soil  suspensions  of  montmorillonite  and  kaolinite  clays,  cationic  exchange  at  pH  A 
and  8  is  a  principle  interaction  of  hydrazine.  At  pH  4,  hydrazine  exists  mostly  as  hydra- 
zinium  (N2H5+),  whereas  at  pH  8,  hydrazine  exists  in  its  neutral  form  (N2H4).  At 
the  high  pH,  more  hydrazine  adsorption  and  surface  catalysis  occurs.  In  suspensions  of 
the  top  horizon  of  Arredondo  soil,  only  20  percent  of  the  hydrazine  is  recovered  at  pH  8; 
80  percent  is  recovered  at  pH  4. 

Infrared  and  Raman  spectroscopy  were  used  to  study  the  microscopic  interactions  of 
hydrazine  with  kaolinite.  Studies  show  that,  after  2  hours  of  hydrazine  exposure  to 
kaolinite,  90  percent  of  the  spacing  between  clay  layers  is  intercalated  by  hydrazine. 
X-ray  diffraction  shows  the  layer  spacing  increases  from  .716  to  1.03  nanometers.  At 
reduced  pressures,  spectroscopic  evidence  shows  that  the  hydrazine  penetrates  into  the 
inner  structure  of  the  clay  layers  and  interacts  strongly  with  the  inner  hydroxy  groups. 

In  addition,  the  interlayer  spacing  decreases  upon  evacuation,  giving  further  evidence 
that  hydrazine  penetrates  deeper  into  the  layers. 

Microbiological  studies  show  there  are  certain  bacteria  which  can  cometabolically 
degrade  hydrazine.  In  general,  however,  biodegradation  is  a  minor  factor  in  the  overall 
degradation  of  hydrazine  in  aqueous  and  soil  systems.  ^5N-hydrazine  studies  show  that 
the  Achromobacter  species  can  degrade  hydrazine  to  nitrogen.  Soil  suspensions  treated 
with  the  Achromobacter  species  degrades  hydrazine  somewhat  faster  than  suspensions  without 
the  bacteria.  At  high  concentrations,  hydrazine  exerts  a  severe  toxic  effect  on  the 
bacteria,  and  biodegradation  is  therefore  minimized. 

Microbiological  studies  of  monomethylhydrazine  (MMH)  show  that  the  initial  degradation 
steps  of  MMH  are  not  enhanced  by  the  presence  of  bacteria.  In  the  absence  of  soil 
bacteria,  MMH  will  degrade,  but  does  not  yield  carbon  dioxide  (CO2).  However,  14C-MMH 
studies  show  that  MMH  does  degrade  to  yield  CO2  if  soil  bacteria  is  present. 

Soil  column  studies  show  that  the  mobility  of  hydrazine  through  a  water-saturated  soil 
matrix  depends  upon  several  factors  and  that  there  are  several  types  of  interactions  in 
soil.  These  interactions  include  ion  exchange,  adsorption  and  complexation,  first-  and 
second-order  chemical  reactions,  and  biodegradation.  Mobility  can  depend  upon  such 
factors  as  the  soil  horizon,  the  initial  input  concentration,  and  the  pore  velocity. 
Studies  were  done  a.  lower  pH;  therefore  hydrazine  existed  as  N2H5+  in  the  soil 
columns.  N2H5  +  is  not  as  susceptible  to  catalytic  oxidation  as  N2H4.  Three 
Arredondo  soil  horizons  were  studied.  The  top  horizon  has  the  greatest  organic  and 
bacteria  content;  hence,  the  greatest  interactions  were  found  with  this  horizon. 

Information  from  all  the  hydrazine  interaction  studies  was  used  to  develop  a  transport 
model  to  describe  the  behavior  of  hydrazine  in  the  soil  columns.  The  model  includes 
diffusion  and  convection  terms  in  conjunction  with  chemical  adsorption  and  degradation 
terms.  The  model  has  two  adsorption  processes  in  series,  and  an  irreversible  process. 

The  model  was  used  to  fit  data  from  the  soil  column  studies. 

A  more  elaborate  model  describing  the  transport  of  hydrazine  from  a  leak  in  a  storage 
tank  downstream  to  a  drainage  site  is  also  presented  in  the  report. 
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SECTION  I 


INTRODUCTION 


A. 


OBJECTIVES 


^Because  the  Air  Force  is  the  primary  user  of  the  rocket  fuels, 
hydrazine  (Hz),  monomethylhydrazine  (MMH) ,  and  1 , 1-dimethylhydrazine 

t 

(UDMH)^  £t  is  responsible  for  the  environmental  implications  associated 
with  the  transport,  storage,  and  handling  of  these  fuels.  During 
handling,  hydrazine  fuels  could  inadvertently  be  released  to  the  atmo¬ 
sphere  and  the  surrounding  aqueous  and  terrestrial  environments.  There¬ 
fore  it  is  advantageous  to  understand  the  fate  of.  these "mate rials  in  soil 
and  water.  The  purpose  of  Task  Order  85-4  was  to  study  the  soil  chemis¬ 
try,  soil  microbiology  and  transport  through  the  soil  of  the  hvdrazir.es . 

.  ,  y  > 

1  _(TSe  objectives  of  the  research  conducted  under  Task  Order  85-4  were 
as  follows: 

(1)  Conduct  a  literature  review  of  all  pertinent  facets  of 
interactions  of  hydrazine  fuels  in  the  soil/water  environment. 

(2)  Investigate  the  decomposition  of  hydrazine  fuels  in  aqueous 
media  under  conditions  of  varying  chemical  compositions,  pH, 
redox  potential,  ionic  strength,  and  temperature. 

(3)  Describe  the  adsorption/desorption  characteristics  of  hydrazine 
fuels  on  various  soils  and  soil  components.  Investigate,  on  a 
molecular  level,  the  nature  of  hydrazine  and  clay  mineral  inter¬ 
actions. 

(4)  Study  the  effects  of  hydrazine  fuels  on  microbial  population 
dynamics,  species  survival,  soil  respiration,  and  microbial 
degradation  of  hydrazine. 

(5)  Conduct  soil  column  experiments  to  evaluate  the  transport  of 
hydrazine  fuels  through  soils.  Develop  breakthrough  curves  and 
transport  model  parameters  for  prediction  of  hydrazine  movement 
in  soils. 

The  literature  review  has  been  compiled  and  submitted  as  a  separate 
publication.  The  initial  objectives  included  research  with  hydrazine, 
monomethylhydrazine,  and  1 , 1-dimethylhydrazine ;  however,  after  beginning 
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Che  research  project  it  was  mutually  agreed  to  focus  on  hydrazine  alone. 
Some  microbiological  experiments  were  conducted  with  MMH  and  are  reported 
in  Section  IV. 

B .  BACKGROUND 

1.  Water,  Soil,  and  Soil  Constitutent  Studies 

The  aqueous  chemistry  of  hydrazine  in  both  deionized  and  dis¬ 
tilled  water  and  natural  waters  was  investigated  under  the  best  available 
laboratory  techniques  and  equipment.  The  soil  and  clay  adsorption 
studies  were  conducted  in  a  modified  "batch  slurry"  technique  similar  to 
the  flow-through  system  described  by  Kayes  et  al.  (Reference  1).  The 
clay  surface  studies,  microbial  experiments,  and  the  transport  model 
development  are  described  in  the  separate  chapters  on  each  of  these 
areas . 


2.  Spectroscopic  Investigations 

In  situ  vibrational  spectroscopic  methods  have  been  used  to 
study  the  interaction  of  hydrazine  with  kaolinite  surface.  Noninvasive 
Raman  and  FT-IR  spectra  were  obtained  for  the  kaolinite-hydrazine  (KH) 
intercalation  complex  at  low  temperatures  and  pressures.  Strong 
vibrational  perturbations  of  the  guest  intercalate,  hydrazine,  and  of  the 
clay  mineral  kaolinite  were  observed.  Upon  expansion  of  the  kaolinite 
structure  by  hydrazine,  a  significant  reduction  in  the  intensities  of  the 
inner-surface  hydroxyl  groups  was  observed  which  indicated  that  strong 
hydrogen  bonds  were  formed  between  the  intercalated  hydrazine  species  and 
the  kaolinite  interlamellar  surface.  Tn  addition,  several  Raman-  and 
IR-active  vibrational  modes  of  hydrazine  were  influenced  by  the  kaolinite 
surface . 


3.  Soil  Microbiology 

Information  on  the  degradation  and  soil  microbiology  of  hydra¬ 
zine  and  the  substituted  hydrazines  is  limited.  Experimental  procedures 
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for  evaluating  the  fate  and  transf ornation  of  the  hydrazine  fuels  were 
developed  using  standard  soil  microbiological  techniques.  The  effects  of 
Hz  and  MMH  on  soil  microbiological  properties  were  also  examined. 

4.  Soil  Physics  and  Model  Development 

A  brief  literature  search  indicated  a  general  deficiency  of 
experimental  information  concerning  the  mobility  and  transport  of  hydra¬ 
zine  in  soils.  Such  information  is  important  to  any  evaluation  of  the 
potential  for  chemical  contamination  of  groundwater  in  the  event  of  acci¬ 
dental  spillage  of  hydrazine  onto  a  soil  surface  or  of  subsurface  leakage 
of  hydrazine  from  defective  storage  tanks.  Any  contamination  of  ground- 
water  should  be  considered  detrimental  to  environmental  qualitv  since 
hydrazine  is  an  "animal  carcinogen"  as  well  as  a  "suspected  human  car¬ 
cinogen." 

Research  was  initiated  to  determine  the  mobility  of  hydraziniun 

(ionic  form  of  hydrazine)  during  steady  flow  through  columns  of  water- 

saturated  sandy  soil  and  to  develop  a  simplified  numerical  mathematical 

model  to  describe  the  resulting  transport  of  hydrazinium  through  the 

soil.  Factors  investigated  include  the  concentration  of  hydrazinium  in 

applied  aqueous  solutions,  pore  water  velocity  during  flow,  and  the 

method  (pulse  versus  continuous)  of  solution  application.  Material  from 

three  horizons  (A  E2  and  E2)  of  an  Arredondo  fine  sand  soil  were  used  in 
P 

the  hand-packed  soil  columns. 

A  finite-difference  numerical  model  was  also  developed  to  des¬ 
cribe  2-dimensional  transport  of  hydrazine  during  transient  water  flow  in 
a  rectangular  soil  region  that  receives  rainfall  input  at  the  soil  sur¬ 
face,  subsurface  leakage  of  hydrazinium  solution  at  the  upstream  boun¬ 
dary,  and  drainage  of  groundwater  at  the  downstream  boundary.  An  imper¬ 
vious  clay  layer  was  assumed  to  provide  the  lower  boundary  of  the  flow 
region. 
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c. 


SCOPE 


The  scope  of  this  report  is  to  document  the  results  of  various  soil 
chemistry,  soil  microbiology,  and  soil  physic  laboratory  experiments  such 
that  a  fate  and  transport  model  could  be  evaluated.  The  approach  was  to 
intergrate  the  results  from  several  aqueous  and  soils  experiments  to 
better  understand  the  chemical  behavior  of  hydrazine  in  natural  waters 
and  soil  environments.  A  parallel  approach  for  the  effects  of  hydrazine 
and  monomethvlhydrazine  on  soil  microbial  processes  was  also  taken. 

Information  obtained  from  the  soil  chemistry  and  soil  microbiology 
studies  was  utilized  in  the  development  of  a  1-  and  2-dimensional  trans¬ 
port  model  for  evaluating  the  potential  for  hydrazine  to  migrate  in 
soils.  The  development  of  such  a  fate  and  transport  model  would  allow 
the  U.S.  Air  Force  an  accessment  tool  for  taking  remedial  action  in  the 
events  of  accidential  spills  or  leaks  from  storage  tanks. 
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SECTION'  II 


AQUEOUS  AND  SOIL  CHEMISTRY  STUDIES 

A.  MATERIALS  AND  METHODS 

1.  Reagents 

Hydrazine  monohvdrate  was  purchased  from  Aldrich  Chemical  Com¬ 
pany,  (Milwaukee,  WI.).  All  other  chemicals  were  analytical  grade  or  the 
highest  grade  available. 

2.  Natural  Waters 

Natural  waters  were  collected  in  20-gallon  plastic  carboys  from 
the  Saint  Johns  River  and  Santa  Fe  Lake.  River  water  samples  were  col¬ 
lected  under  the  East  Palatka  Bridge  located  on  US  Highway  17.  The  lake 
samples  were  taken  near  Buddy's  Landing  on  Lake  Santa  Fe  in  Melrose,  Flo¬ 
rida.  After  arrival  to  the  laboratory  the  dissolved  oxygen  concenration 
and  total  carbon  content  were  measured.  Two  liters  of  each  type  of  water 
were  autoclaved  for  20  minutes  and  2  liters  were  filtered  through  a  0.2 
pm  membrane  to  sterilize  and  eliminate  solids  in  suspension.  They  were 
stored  in  a  refrigerator  at  10°C  until  ready  for  use. 

3.  Clays 

Montmorillonite  (SAz-1)  and  kaolinite  (KGa-1)  used  in  these 
studies  were  obtained  from  the  Clay  Minerals  Repository,  Department  of 
Geology,  University  of  Missouri. 

4.  Soils 

The  three  top  horizons  of  an  Arredondo  fine  sand  (grossarenic 
paleudult,  loamy,  siliceous,  hyperthermic):  Ap  (0-20  cm),  El  (20-80)  cm) 
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and  E2  (80-150  cm) ,  were  collected  from  a  Northwest  location  in  /lachua 
County,  Florida. 

The  Orangeburg  loamy  sand  soil  (Typical  Paleudult,  fine-loamy, 
siliceous,  thermic)  was  a  sample  from  the  top  15  cm  taken  from  a  site  in 
Jackson  County,  Florida. 

5.  Analytical  Methods 

The  laboratory  method  selected  to  determine  hydrazine  concen¬ 
trations  less  than  11  mmol  1  ^  was  a  modification  of  the  procedure  used 
by  Hayes  et  al.  (Reference  1).  Our  technique  substituted  hydrochloric 
acid  for  trichloroacetic  acid,  since  only  aqueous  solutions  were  anal¬ 
yzed.  Higher  concentrations  of  hydrazine  were  analyzed  by  direct  iodate 
titration  using  carbon  tetrachloride  to  detect  the  end  point  (Reference 
2). 

The  concentration  of  oxygen  in  aqueous  solutions  contained  in 
small  bottles  was  determined  with  a  dissolved  oxygen  microelectrode 
(Microelectrodes,  Inc.).  For  the  studies  in  a  Pyrex  cell  a  dissolved 
oxygen  electrode  Orion  model  97-08,  was  used.  Total  metals  concentra¬ 
tions  were  determined  on  an  atomic  adsorption  spectrophotometer  (Perkin 
Elmer  460).  A  specific  gas-sensing  electrode  (Orion  951201)  was  used  to 
detect  ammonia  in  the  degradation  studies. 

+2 

The  technique  used  to  determine  Cu  in  the  supernatant  of 

clays  was  differential  pulse  stripping  voltametry  measured  with  a  EG&G 
Princeton  Applied  Research  polarographic  analyzer  model  384B.  The  sup¬ 
porting  electrolyte  was  NH,+-citrate  at  pH  3.  Because  this  technique 

4  +2  +1 

does  not  distinguish  between  Cu  and  Cu  ,  a  specific  ion  electrode  was 

+2 

used  to  measure  Cu  whenever  hydrazine  was  present. 

The  concentration  of  total  soluble  organic  carbon  in  water  was 
determined  on  a  Total  Carbon  System  from  Oceanography  International  Com¬ 
pany,  Model  0524B.  A  small  aliquot  was  placed  in  a  glass  ampule  with  a 
series  of  reagents  to  acidify  and  digest  the  organic  forms  present. 

Ampules  were  purged  of  inorganic  carbon  with  purified  oxygen.  After 

ampules  were  sealed,  they  were  autoclaved  to  convert  the  organic  carbon 
to  C0o  which  was  measured  by  a  nondispersive  infrared  analyzer  equipped 
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with  a  digital  integrator.  The  integrated  peak  area  was  related  to  the 
weight  of  carbon  by  comparison  with  standards  of  known  carbon  content. 

B.  EXPERIMENTAL  PROCEDURES 

1.  Aqueous  Studies 

Solutions  of  hydrazine  ranging  from  10  to  500  pg  1  ^  were  pre¬ 
pared  in  2  liter  volumetric  flasks.  After  the  desired  chemical  compo¬ 
sitions  were  obtained,  10  mL  aliquots  were  put  into  small  bottles  and 
incubated  in  a  constant-temperature  water  bath.  Three  bottles  were 
opened  for  analysis  at  various  time  intervals.  The  frequency  of  analysis 
depended  on  the  rate  of  hydrazine  degradation.  Various  constant  ionic 
strengths  were  maintained  using  CaCl^.  Acidic  pH's  were  obtained  with 
HC1.  Neutral  pHs  were  obtained  with  phosphate  buffers  at  different  ionic 
strengths . 

Three  different  types  of  bottles  were  used  in  the  study  r.c 
investigate  the  effects  of  container  material:  glass  scintillation  vials 
made  of  borosilicate  low  in  potassium  content,  glass  serum  vials  made  of 
borosilicate  (with  crimped  aluminum  tops  and  a  Teflon  liner) ,  and  poly¬ 
ethylene  bottles.  Most  of  the  experiments  were  carried  out  in  serum 
vials,  assumed  impermeable  to  oxygen.  New  bottles  were  opened  each  time 
an  analysis  was  needed  and  the  rest  of  the  solution  was  discarded.  How¬ 
ever,  in  a  recent  experiment  we  found  that  oxygen  could  diffuse  slowly 
into  the  bottles.  Because  of  this,  we  incubated  vials  in  an  anaerobic 
incubator  under  a  nitrogen  atmosphere  to  minimize  autoxidation. 

A  study  to  determine  the  effect  of  the  container  size  on  hydra¬ 
zine  degradation  used  serum  vials  of  10,  50  and  100  mL  .  Vials  were 
opened  periodically  for  analysis,  shaken  and  put  back  in  the  constant 
temperature  water  bath  for  future  analysis. 

Two  experiments  were  were  conducted  to  determine  effect  of  the 
gas  atmosphere  on  hydrazine  degradation.  Solutions  were  prepared  by 
flushing  the  stock  hydrazine  solutions  with  nitrogen  or  argon  gases. 
Vials  were  also  flushed  with  the  gases  during  the  transfer  of  10  mL  of 
hydrazine  solution  until  they  were  sealed.  This  procedure  proved  to  be 
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inadequate  because  some  air  entered  during  the  process  of  closing  the 
vials  and  it  was  later  discovered  that  the  seal  was  not  completely 
impermeable  to  oxygen. 

One  set  of  experiments  was  carried  out  in  a  1.5-liters  Pyrex 
cell  with  a  glass  top,  to  which  a  pH  electrode,  an  oxygen  electrode  and  a 
redox  electrode  were  attached.  The  cell  also  had  an  entrance  for  bubb¬ 
ling  gases  and  a  syringe  to  withdraw  samples.  The  contents  of  the  cell 

were  continuously  stirred  with  a  Teflon  -coated  magnetic  stirring  rod. 

+2 

Different  Cu  concentration  solutions  were  equilibrated  with  gases  of  a 
known  oxygen  content  (0.27  Vmol  1  *  or  less).  Under  ambient  air  condi¬ 
tions  a  trap  was  installed  between  the  air  pump  and  the  cell  to  remove 
CO^.  It  was  found  later  that  the  trap  had  a  slight  effect  on  the  pH 

of  the  experimental  solution.  After  the  addition  of  10.3  mmol  1  *  of 
hydrazine  the  electrode  readings  were  monitored  and  samples  were  with¬ 
drawn  periodically  for  hydrazine  analysis. 

2.  Clay  Studies  -  Hydrazine  Degradation  Studies  on  Cu-Montmor il- 

lonite 

Clay  fractions  smaller  than  0.5  hm  were  selected  for  the  degra¬ 
dation  studies.  This  was  accomplished  by  washing  the  clay  three  times 
with  0.1  N  NaCl  to  disperse  the  particles  and  saturate  the  exchange  com¬ 
plex  with  a  single  cation.  Samples  were  washed  with  deionized  water 
until  a  negative  chloride  test  resulted.  The  smaller  fractions  were  sep¬ 
arated  using  an  ultraspeed  centrifuge.  To  minimize  dissolution  of  clays, 
samples  were  stored  in  0.1  N  NaCl  solution  until  ready  for  use. 

+2 

In  the  degradation  studies  1  mL  aliquots  of  different  Cu 

stock  solutions  were  added  to  serum  vials  containing  9  mL  of  Na-saturated 

montmorillonite  suspension  (3  mg  ml  *)•  Vials  were  equilibrated  for  3 
+2 

days  and  Cu  concentration  in  the  supernatant  was  measured  by  differen¬ 
tial  pulse-stripping  voltametry.  Hydrazine  was  added  to  the  vials  and 
hydrazine  concentrations  in  the  suspension  were  measured  with  time.  The 
standard  curve  was  developed,  adding  the  same  amount  of  clay  to  the  vol¬ 
umetric  flask  as  to  the  volumetries  containing  the  experimental  samples. 
After  centrifugation  of  the  serum  vials,  hydrazine  was  measured  in  the 


8 


supernatant.  The  difference  between  the  amount  of  hydrazine  in  the  sus¬ 
pension  and  in  the  supernatant  was  assumed  to  be  adsorbed  on  the  surface 
of  the  clay. 

Initially  an  isotherm  was  run  in  a  Na-montmorillonite  suspen¬ 
sion  prepared  in  the  same  was  as  the  suspension  for  the  degradation 
studies  described  above.  Ten-milliliter  aliquots  containing  3  mg  ml  ^  of 
clay  were  placed  in  serum  vials  under  anaerobic  conditions.  Increasing 
amounts  of  hydrazine  solution  were  added  to  the  vials.  Afterwards  vials 
were  stoppered,  shaken  and  let  equilibrate  in  the  absence  of  oxygen  for 
24  hours.  The  pH  of  the  suspension  was  not  controlled  and  it  increased, 
depending  on  the  concentration  of  hydrazine  in  the  supernatant.  Hydra¬ 
zine  concentration  left  in  the  supernatant  was  measured  and  adsorption 
was  calculated  as  the  difference  between  the  amount  of  hydrazine  added 
and  the  amount  remaining  in  the  supernatant. 

Adsorption  isotherms  of  kaolinite  and  montmorillonite  were  mea¬ 
sured  at  pH  4  and  8.  Four  grams  of  kaolinite  and  1  gram  of  montmorillo¬ 
nite  without  any  pretreatment  were  placed  in  preweighted  polyethylene 
centrifuge  bottles.  The  contents  were  washed  five  times  with  0.1  N  NaCl 
at  the  pH  of  the  experiment  to  saturate  the  exchange  complex  with  Na+*. 
All  the  steps  except  centrifuging  were  carried  out  in  an  anaerobic  incu¬ 
bator  to  minimize  autoxidation.  Afterwards  the  excess  of  NaCl  in  the 
supernatant  was  washed  three  times  with  deionized  water  at  the  pH  of  the 
suspension.  The  supernatants  from  last  wash  were  kept  for  analysis  of 
Fe,  Si,  Na,  and  pH.  The  volumes  were  brought  to  20  mL  with  deionized 
water  and  increasing  amounts  of  hydrazine  solution  were  added  to  the  cen¬ 
trifuge  tubes.  Samples  were  shaken  and  left  equilibrating  in  the  anaero¬ 
bic  incubator  for  24  hours.  After  centrifuging  hydrazine,  Na,  Fe,  and  Si 
concentrations  were  measured  in  the  supernatant.  Hydrazine  adsorbed  was 
calculated  as  the  difference  between  the  amount  of  hydrazine  added  and 
the  amount  left  in  the  supernatant  after  equilibration  with  the  suspen¬ 
sion.  The  difference  between  the  amount  of  sodium  in  the  supernatant 
after  equilibration  and  before  adding  hydrazine  is  an  indication  of  the 
amount  of  hydrazine  exchanged  with  Na+*  on  the  exchange  complex.  All 
samples  were  analyzed  for  Fe  and  Si  after  early  analysis  indicated  exces¬ 
sive  Na  in  solution  was  probably  due  to  clay  decomposition.  After  the 
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completion  of  the  isotherms  the  samples  with  the  highest  concentration  of 
hydrazine  were  wrashed  exhaustively  with  0.1  N  KC1  to  desorb  hydrazine 
from  the  clays. 

3.  Soil  Studies 

Samples  from  the  three  top  horizons  of  Arredondo  soil  were  air- 
dried  and  sieved  through  a  2  mm  sieve.  Metals  were  analyzed  in  a  double 
acid  extract.  Two  sets  of  isotherms  were  conducted.  The  first  set  was 
done  at  pH  4.8  and  8.0,  maintaining  a  constant  ionic  strength  of  0.01  N 
with  CaCl^  solutions.  We  lowered  the  pH  of  the  hydrazine  stock  solutions 
with  HC1.  Because  N^H^+  Cl  contributes  to  the  salt  content  of  the  solu¬ 
tion,  the  concentration  of  hydrazinium  chloride  was  considerated  in 
preparing  the  constant  ionic  strength  solutions.  The  isotherms  were 
obtained  over  a  wide  range  of  concentrations.  Five-gram  samples  of  each 
horizon  of  Arredondo  soil  were  placed  in  glass  serum  vials  and  10  mL  cf 
hydrazine  solution  with  constant  ionic  strength,  and  increasing  hydrazine 
concentrations  were  added.  After  incubation  for  48  hours  under  anaerobic 
conditions,  samples  were  centrifuged  and  hydrazine  was  measured  in  the 
supernatant . 

The  second  set  of  isotherms  was  conducted  at  pH  4  and  8  in  the 
anaerobic  incubator.  Twenty  grams  of  soil  were  washed  five  times  with 
0.1  N  NaCl  at  the  pH  of  the  study  to  saturate  the  exchange  complex  with  a 
single  cation.  Afterwards  samples  were  washed  with  deionized  water  at 
the  same  pH  to  eliminate  the  excess  NaCl  in  the  supernatant.  The  super¬ 
natants  of  last  wash  were  kept  for  analysis  of  Fe,  Si,  Na,  and  pH.  The 
volumes  were  brought  to  20  mL  with  deionized  water  and  increasing  amounts 
of  a  hydrazine  stock  solution  were  added  to  the  centrifuge  tubes.  Hydra¬ 
zine  were  measured  and  calculated  as  in  the  procedure  for  kaolinite  and 
montmorillonite .  After  extraction  of  hydrazine  with  0.1  N  KC1,  soils 
were  extracted  twice  more  with  dilute  acid. 

Degradation  of  hydrazine  in  the  presence  of  Orangeburg  soil  was 
done  as  follows:  One,  0.5,  and  0.25  grams  of  Orangeburg  soil  were  placed 
in  serum  vials  and  lOmL  of  10.3  mmol  1  ^  hydrazine  solution  were  added 
to  each  vial.  Hydrazine  solution  in  the  suspension  was  measured  with 
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TA3LE  1.  CHEMICAL  PROPERTIES  OF  NATURAL  WATERS. 
CONCENTRATIONS 
(mg  1  S 


Sta  Fe  Lake 

St.  Johns  River 

pH  (s.u.)* 

6.2 

8.0 

°2 

6.7 

7.0 

Organic  C 

6.23 

7.16 

K 

0.4 

5.7 

Na 

5.9 

142 

Ca 

2.5 

59 

Mg 

1.4 

23 

Cu 

0.00 

0.00 

Fe 

0.0 

0.0 

Mn 

0.00 

0.00 

Zn 

0.01 

0.01 

+4 

NH 

0.2 

0.01 

no" 

0.01 

0.1 

P 

x** 

T 

Cl" 

12 

320 

(s.u.)  standard  units 

**  T  traces 

time.  After  centrifugation  of  the  vials,  hydrazine  was  measured  in  the 
clear  supernatant. 

C.  RESULTS  AND  DISCUSSION 

1.  Degradation  of  Hydrazine  in  Aqueous  Systems 
a.  System  I  -  Natural  Waters 

Selected  chemical  properties  of  the  two  natural  waters, 
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TIME  (days) 


Figure  1.  Degradation  of  Hydrazine  in  Natural  Waters  (at  22°C  in 

Serum  Vials):  Effect  of  Sterilization;  (A)  Untreated,  (B) 
Autoclaved . 


Saint  Johns  River  and  Santa  Fe  Lake  are  presented  in  Table  1.  The  pri¬ 
mary  differences  between  these  two  natural  waters  were  a  higher  pH  and  a 
higher  salt  content  in  the  Saint  Johns  River  water.  Upon  addition  of 
10.3  mmol  1  ^  of  hydrazine,  the  pH  of  the  solutions  increased  to  10.2. 
Degradation  was  slightly  faster  in  the  river  water  than  in  the  lake 
water,  and  in  natural  waters  degradation  was  faster  than  in  the  distilled 
water  control  (Figure  1).  The  experiment  was  conducted  in  serum  vials  at 
the  original  oxygen  content  and  under  a  nitrogen  atmosphere.  Because 
there  was  no  significant  difference  between  either  atmosphere  we  con¬ 
cluded  that  oxygen  was  leaking  into  the  serum  vials. 
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As  shown  in  Figure  1,  sterilization  had  very  little  effect 
on  the  rate  of  hydrazine  disappearance,  indicating  that  the  mechanism  was 
mainly  chemical  and  not  microbiological.  This  is  in  agreement  with  the 
findings  by  Ou  and  Street  (Reference  3)  that  concentrations  above  5  mmol 


-1 


might  be  toxic  for  microbial  populations, 


b. 


Svstem  II  -  Distilled  Water 


(1)  Effects  of  Reaction  Vessels 


It  has  been  previously  reported  that  the  chemical 
composition  of  the  reaction  vessel  might  have  an  effect  on  the  degrada¬ 
tion  rate  of  hydrazine.  The  first  experiment  used  hydrazine  solutions 
prepared  in  distilled  water  at  22°C,  and  compared  three  types  of  con¬ 
tainers:  glass  serum  vials,  polyethylene  vials,  and  glass  scintillation 

vials.  Each  type  of  container  underwent  four  treatments: 

under  air  atmosphere,  with  head  space; 
under  nitrogen  atmosphere,  with  head  space; 
under  air  atmosphere,  no  head  space; 
under  nitrogen  atmosphere,  no  head  space. 

Degradation  was  slow  in  both  the  polyethylene  and  the 
scintillation  vials,  with  no  significant  treatment  effect  for  either  vial 
(Figure  2).  After  24  days  only  9.5  percent  of  the  added  hydrazine  had 
degraded.  This  suggests  that  these  kind  of  materials  had  no  catalyzing 
effect  on  the  decomposition  of  hydrazine.  The  solution  pH  remained  at 
10.2  for  the  nitrogen  treatment  and  9.9  for  the  air  treatment  during  the 
course  of  the  incubation.  The  fact  that  the  nitrogen  treatments 
increased  their  oxygen  content  with  time  suggests  that  the  sealing  in 
these  kind  of  bottles  was  not  impermeable  to  oxygen. 

On  the  other  hand  the  serum  vials  had  an  important 
effect  on  hydrazine  degradation.  Degradation  was  faster  in  the  vials 
that  had  air  in  the  headspace  because  oxygen  diffused  freely  into  the 
solution.  For  the  other  treatments  oxygen  had  to  diffuse  first  through 
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Figure  2.  Hydrazine  Degradation  in  Aerated  Distilled  Water  at  22  C 
Effect  of  Container  Material;  (A)  Headspace  Filled  With 
Air  (B)  Bottles  Filled  to  the  Top  With  Solution. 
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Che  seal,  consequently  hydrazine  degraded  slower.  The  oxygen  content  in 
the  vials  with  no  head  space  remained  nearly  constant  at  1  mg  1  ^ 

In  another  set  of  experiments  at  45°C  and  in  the  pre- 

+2 

sence  of  Cu  degradation  was  faster  in  polyethylene  bottles  than  in 
glass  serum  vials  (Figure  3) .  Initially  this  was  attributed  to  faster 
leakage  of  oxygen  into  the  polyethylene  bottles  but  this  may  not  be  con¬ 
clusive  since  the  rate  of  oxygen  replenishment  in  both  types  of  bottles 
after  hydrazine  had  disappeared  was  similar. 

Ammonia  was  present  as  a  degradation  product  only  in 
the  solutions  containing  Cu  (Figure  4a).  A  lineal  relationship  was  found 
between  hydrazine  degradation  and  ammonia  production  at  25°C.  Oxygen 
concentration  in  the  solutions  containing  Cu  stayed  close  to  0  ppm  as 
long  as  some  hydrazine  remained.  After  hydrazine  had  degraded  complete¬ 
ly,  the  oxygen  levels  in  solution  increased  until  reaching  equilibrium 
with  air  (Figure  5a)  .  The  rate  of  oxygen  replenishment  was  similar  in 
the  serum  vials  and  the  polyethylene  bottles,  further  confirming  that  the 
seals  in  both  types  of  containers  were  not  impermeable  to  oxygen. 

To  further  investigate  the  effect  of  serum  vials  on 
the  stability  of  hydrazine  an  experiment  was  set  up  using  three  different 
sizes  of  the  same  type  of  serum  vial  with  exactly  the  same  sealing  sys¬ 
tem.  Hydrazine  solutions  were  prepared  in  fi.e  different  treatments: 
distilled  water,  0.001  ppm  Cu,  0.01  ppm  Cu,  0.1  ppm  Cu,  and  1.0  ppm  Cu 
and  they  were  incubated  at  45°C.  This  set  of  vials  was  opened  for  analy¬ 
sis  and  sealed  again  after  air  had  filled  the  head  space.  In  this  case 
diffusion  of  oxygen  through  the  seal  was  not  the  controlling  factor. 
Data  from  this  experiments  are  shown  in  Table  2. 

The  size  of  the  container  had  no  effect  on  the  degra¬ 
dation  of  hydrazine  in  distilled  water  (Figure  6a).  However,  in  the  pre¬ 
sence  of  Cu  hydrazine  degraded  faster  in  the  lOmL  vials  that  had  a  much 
larger  headspace  to  solution  ratio  and  surface  to  volume  ratio  than  the 
50  or  100  raL  vials  (Figures  6c,d,e).  Comparisons  of  other  two  vial  sizes 
indicated  hydrazine  degraded  slightly  faster  in  the  50  mL  vials  (Figures 
6d,e).  Both  the  50 tnL  and  100  mL  vials  had  the  same  headspace  to  solu¬ 
tion  ratio  but  the  smaller  one  had  a  slightly  higher  amount  of  solution 
in  contact  with  the  wall  of  the  container.  The  results  indicate  there  is 
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Figure  3.  Hydrazine  Degradation  at  25°C.  Effect  of  Container 

Material:  GL-Serum  Vial,  PL-Polyethylene  Vial,  (Low)-Low 
Initial  Hydrazine  Concentration,  (High)-High  Initial 
Hydrazine  Concentration;  (A)  in  Distilled  Water,  (B)  in 
the  Presence  of  CU. 
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Figure  4.  Ammonia  Evolution  From  Hydrazine  Degradation  at  25°C. 

Effect  of  Container  Material  (Legend  as  in  Figure  3)  ;  (A) 
in  Distilled  Water,  (B)  in  the  Presence  of  Cu. 
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Figure  5.  Changes  in  Oxygen  Concentration  During  Hydrazine  Degradation 
at  25°C.  Effect  of  Container  Material  (Legend  as  in  Figure 
3);  (A)  in  Distilled  Water,  (B)  in  the  Presence  of  Cu. 
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Degradation  of  Hydrazine  at  45°C.  Effect  of  Container  Size 
(A)  in  0.001  ppm  Cu  Solution,  (B)  in  Distilled  Water. 
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Figure  6.  Degradation  of  Hydrazine  at  45°C.  Effect  of  Container  Size; 

(C)  in  0.001  ppm  Cu  solution  and  (D)  in  0.1  ppm  Cu  solution. 
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Figure  6.  Degradation  of  Hydrazine  at  45° C.  Effect  of  Container 
Size;  (E)  in  1  ppm  Cu  Solution.  (Concluded) 


TABLE  2.  AVERAGE  MEASUREMENTS  OF  THE  SERUM  VIALS. 


10  mL 

50  mL 

100  mL 

headspace  (ml) 

4.4 

10.2 

20.6 

height  of  solution  (cm) 

2.90 

4.40 

6.00 

internal  radius  (cm) 

1.05 

1.90 

2.30 

2 

gas-liquid  interphase  (cm  ) 

3.46 

11.3 

16.6 

head  space/solution  (ml/ml) 

0.44 

0.20 

0.20 

2 

contact  surf  ace /volume  (cm  /ml) 

2.25 

1.28 

1.03 

22 


an  interaction  between  the  Cu  ^  ions  and  the  hydrazine  on  the  surface  of 

+2 

the  container.  This  interaction  was  more  pronounced  as  the  solution  Cu 
concentration  increased. 

(2)  Effect  of  Solution  Ionic  Strength 

The  experiment  to  evaluate  the  effect  of  ionic 
strength  on  hydrazine  degradation  was  carried  out  in  scintillation  vials 
at  22°C.  The  ionic  strength  was  adjusted  using  CaCl^.  As  shown  in 
Figure  7,  ionic  strength  had  a  significant  effect  on  the  slope  of  the 
degradation  curve.  Increasing  the  CaCl^  concentration  increased  the  rate 
of  hydrazine  autoxidation.  The  effect  of  water  hardness  on  hydrazine 
degradation  has  been  previously  reported  (Reference  4) . 

(3)  Effect  of  pH 

In  preliminary  studies  conducted  over  a  wide  range  of 
pHs  the  fastest  rate  of  hydrazine  degradation  was  found  at  pH  7.0  (Figure 
8a) .  These  results  contradicted  what  some  authors  have  reported  pre¬ 
viously  (Reference  5).  For  this  reason,  a  study  was  set  up,  maintaining 
a  pH  of  7.0,  but  reducing  the  ionic  strength  of  the  phosphate  buffering 
system.  Hydrazine  degradation  was  approximately  first  order  with  respect 
to  phosphate  concentration  (Figure  8b) .  This  result  implied  that  phos¬ 
phate  ion  concentration  and  not  pH  was  the  primary  reason  for  the 
increased  degradation  rate  of  pH  7.  When  the  reaction  was  carried  out  in 
scintillation  vials  at  22°C,  degradation  was  very  slow  for  both  pH  7  and 
9.5  solutions  (Figure  9).  The  ionic  strength  of  the  pH  7.0  buffer  was 
0.1,  but  in  this  case  the  buffer  catalysis  was  not  as  important  as  in  the 

serum  vials.  This  suggests  an  interaction  between  the  phosphate  and  the 

+2 

wall  of  the  container  as  previously  reported  for  Cu 

In  the  series  of  reactions  carried  out  in  the  1.5-liter 

(§) 

Pyrex  cell  it  was  not  intended  to  evaluate  the  effect  of  pH.  However, 
to  remove  CO^  from  the  air  we  used  a  NaOH  trap.  The  NaOH  trap  had  a 
small  effect  on  the  pH  of  the  hydrazine  solution  in  the  presence  of  1  yg 
1  *  of  Cu  ion  and  it  resulted  in  an  increase  in  autoxidation  of  hydrazine 
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2.4 


Figure  8 


Hydrazine  Degradation  at  45°C  in  Serum  Vials:  (A)  Effect  of 
pH,  (B)  Effect  of  Phosphate  Buffer  Ionic  Strength  at  pH  7. 
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Figure  9.  Hydrazine  Degradation  at  22°C  in  Scintillation  Vials: 

Effect  of  pH 

above  pH  9. A.  Hydrazine  degradation  was  negligible  below  pH  A  and 
stopped  completely  at  pH  2. 

2.  Effect  of  Gas  Atmosphere 

Our  objective  in  preliminary  studies  was  to  evaluate  the  effect 
of  the  composition  of  the  gaseous  atmosphere  on  hydrazine  decomposition 
in  aqueous  systems.  To  achieve  this  objective  we  conducted  two  experi¬ 
ments  at  22°C  and  A5°C  using  air,  100%  nitrogen  and  100%  argon  atmo¬ 
spheres.  Even  though  we  found  differences  among  gases  (Figure  10)  we 
think  the  data  is  erroneous  since  the  vials  were  proven  to  be  slightly 
permeable  to  air.  When  the  experiment  was  conducted  in  the  Pyrex 
reaction  cell,  bubbling  nitrogen  gas  throughout  the  experiment  resulted 
in  no  hydrazine  degradation  after  2A  days. 

3.  Effect  of  Cu 

+2 

The  catalytic  effect  of  Cu  on  hydrazine  autoxidation  has  been 
reported  (References  5,6,7).  However  those  studies  were  carried  out  at 
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HYDRAZINE  CONC.  (mraol/l)  HYDRAZINE  CONC.  (mmol/l) 


pH  12,  where  the  hydrazine  degradation  rate  is  a  maximum  (Reference  7). 
To  simulate  what  happens  in  the  soil  environment  we  found  necessary  to 
carry  the  experiments  at  the  pH  obtained  by  the  dissolution  of  hydrazine 
in  water  without  further  adjustments,  and  with  Cu  concentrations  similar 
to  those  found  in  soils.  In  every  case  results  were  compared  with  those 
obtained  in  deionized-bidestilled  water  whose  Cu  concentration  was  low 
enough  to  be  undetected  by  differential  pulse  stripping  voltametry  (<0.1 
p .p .b . )  . 

The  first  experiment  at  25°C  hydrazine  did  not  degrade  in  the 
absence  of  Cu  in  the  polyethylene  bottles  (Figure  3b).  However,  in  the 
serum  vials,  autoxidation  occurred  after  an  induction  period.  This 
result  agrees  with  Audrieth  and  Mohr's  findings  at  a  higher  pH. 

On  the  other  hand,  when  1  ppm  Cu  was  present,  hydrazine 
degraded  faster  in  the  polyethylene  bottles  than  in  the  serum  vials 
(Figure  3a) .  Visual  observation  of  the  experimental  solutions  containing 
Cu  revealed  the  presence  of  a  reddish  precipitate  in  the  low  hydrazine 
concentration  solutions  (2  mM)  ,  and  an  almost  black  precipitate  in  the 
high  hydrazine  concentration  solutions  (10.3  mM) .  The  precipitates  could 
not  be  isolated  because  of  their  instability  in  the  presence  of  air. 

When  oxygen  was  in  excess  over  hydrazine  (Figure  11a),  degrada¬ 
tion  was  initially  fast  and  the  stoichiometry  of  the  reaction  was  1:1. 
Ammonia,  if  produced,  was  below  the  detection  limits  of  our  technic. 
After  the  initial  degradation,  hydrazine  concentration  changed  very 
slowly  although  the  solution  was  saturated  with  oxygen  (Figure  lib).  Ten 
percent  of  the  initial  hydrazine  concentration  remained  after  60  days. 

Increasing  the  temperature  to  30°C  and  45°C  accelerated  the 
rate  of  initial  reaction.  However,  after  the  oxygen  from  the  solution 
and  from  the  headspace  had  disappeared  the  reaction  slowed  down  (Figures 
12a  and  13a).  Copper  concentrations  as  low  as  0.01  ppm  exerted  a  marked 
influence  on  the  rate  of  autoxidation.  At  this  temperature,  the  relation 
between  hydrazine  degraded  and  ammonia  produced  was  not  lineal.  The 
ratio  of  ammonia  produced  to  hydrazine  degraded  increased  with  tempera¬ 
ture  (Figure  12b  and  13b). 

When  lower  hydrazine  concentrations  were  used  (Figure  14)  most 
of  the  hydrazine  had  degraded  after  one  day  in  the  0.1  and  1.0  ppm  Cu 
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Figure  11.  (A)  Hydrazine  degradation  in  1  ppm  Cu  Solution  at  25°C 

in  Serum  Vials.  (B)  Oxygen  Concentration  Changes  During 
Hydrazine  Degradation  at  25°C. 
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Hydra^jne  Degradation  at  30°C  in  Serum  Vials:  (A)  Effect 
of  Cu  Concentration  on  Hydrazine  Degradation,  (B) 
Ammonia  Evolution  From  Hydrazine  Degradation  at  30°C. 
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Figure  13.  Hydra^^ne  Degradation  at  45 °C  in  Serum  Vials:  (A)  Effect 
of  Cu  Concentration  on  Hydrazine  Degradation,  (B) 
Ammonia  Evolution  From  Hydrazine  Degradation  at  45°C. 
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Figure  14.  Hydrazine  Degradation  in  Serum  Vials  at  45°C;  Effect  of  Cu 
Concentration:  (A)  Hydrazine  Degradation,  (B)  Ammonia 
Evolution  from  Hydrazine  Degradation. 


treatment:.  Degradation  in  water  was  slower  than  at  high  hydrazine  con¬ 
centration. 

Experiments  carried  out  in  a  1.5-liters  Pyrex  cell  allowed 
control  of  the  gas  atmosphere  and  monitoring  of  changes  in  pH  throughout 
the  degradation.  However,  the  trap  used  to  remove  C0?  from  the  air  had  a 
slight  effect  on  the  pH  of  the  solution.  Vhen  purified  nitrogen  was  bub¬ 
bled  through  the  cell,  no  degradation  had  taken  place  after  20  days. 

Degradation  was  fast  when  air  was  bubbled  through  a  solution 
containing  1  ppm  Cu  (Figure  15).  Oxygen  was  consumed  faster  than  it  was 
supplied.  Changing  air  to  a  mixture  of  nitrogen  and  12  percent  oxygen 
did  not  have  a  significant  effect  on  the  rate  of  hydrazine  autoxidation. 
At  lower  Cu  concentrations,  the  rate  of  degradation  was  affected  by  the 
pH  of  the  solution,  the  rate  being  higher  at  a  higher  pH.  Vhen  the  trap 
used  was  NaOH  followed  by  direrite  there  was  a  delay  period  of  6  davs 
after  which  degradation  took  place  very  fast  (data  not  shown). 

a.  Hydrazine  Degradation  in  the  Presence  of  Montmorillonite 

(SAz-1) . 


Because  of  an  increase  in  the  autoxidation  rate  of  hydra- 

+2 

zine  in  Cu  related  to  the  surface  of  the  container  in  contact  with  the 

solution,  the  reaction  was  probably  heterogeneous.  Therefore,  hydrazine 

would  probably  degrade  faster  in  a  suspension  that  had  certain  amounts  of 
+2 

Cu  distributed  between  the  surface  and  the  supernatant  than  in  a  solu- 

+2 

tion  with  the  same  Cu  concentration  but  no  clay.  This  study  used  a 

Na-montmorillonite  suspension  with  particles  smaller  than  0.5  u/m.  This 

clay  had  a  cation  exchange  capacity  of  81  meq/100  g.  Upon  addition  of  an 

+2 

aliquot  of  Cu  solution  about  85%  of  the  Cu  was  adsorbed  by  the  clay  and 

15%  remained  in  the  supernatant  (Table  3). 

The  presence  of  the  clay  had  strong  effect  on  hydrazine 

+2 

degradation  even  when  Cu  was  not  present  (Figure  16a).  Addition  of  Cu 
had  a  stronger  effect  on  the  solution  than  it  did  in  the  suspension  (Fig¬ 
ures  16b, c,d).  Since  the  total  amount  of  Cu  was  the  same  this  shows  that 
free  Cu  is  a  more  effective  catalyst  than  exchangeable  Cu. 
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TABLE  3.  DISTRIBUTION  OF  ADDED  Cu+~  BETWEEN  THE  SUPERNATANT 
AND  THE  SURFACE  OF  THE  CLAY 


Clay 
mg /ml 

Cu+2  added 
ppm 

„  +2 

Cu  supernat. 

ppm 

Cu+2  adsorb 
yeq/g 

2.7 

0 

0 

0 

2.7 

0.01 

b.d.l.* 

b.d.l. 

2.7 

0. 1 

0.0145 

0.98 

2.7 

1.0 

0. 19 

9.4 

2.7 

10.0 

1.31 

100 

*  b.d.l.  below  detection  limits 


4.  Adsorption  Isotherms 

An  assumption  inherent  in  determining  adsorption  isotherms  is 
that  loss  of  the  sorbate  is  a  measure  of  adsorption.  The  assumption  is 
valid  for  most  sorbates,  but  not  so  for  the  highly  reactive  hydrazine 
species.  Earlier  studies  indicated  that  in  aqueous  systems  with  0o  pre¬ 
sent,  hydrazine  undergoes  an  autoxidation  reaction  as  shown  below: 

»2H«  +  °2  —  »2  +  2  «2° 

Other  parameters  that  influence  this  oxidation  reaction  are  pH, 
catalysts  (Cu,  Mn)  ,  temperature,  and  possibly  light.  Should  the  proper 
conditions  exist  the  following  reaction  might  also  be  a  possible  pathway 

for  N’  H.  loss: 

2  4 


3  N„H  -  4  NH.  +  N~  (2) 

2  4  3  2 

Exclusive  of  Reactions  (1)  and  (2)  the  remaining  possibilities 
for  hydrazine  disappearance  would  be  as  follows: 

X-Na+  +  N2H5+  -  X-N2H5+  +  Na+  (3) 

where  X-  is  the  ion  exchange  sites  on  clays  or  soils  and  Na+  is  the  coun¬ 
ter  ion.  This  exchange  reaction  is  reversible  and  nondestructive.  The 
other  type  of  reaction  is  a  sorptive  reaction  that  may  or  may  not  be 
reversible : 
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+2 

Figure  16.  Effect  of  Cu  on  Hydrazine  Degradation  in  Solution  and  in 
the  Presence  of  a  Na-Montmorillonite  (Saz-1)  Suspension; 
(A)  Absence  of  Cu,  (B)  0.1  ppm  Cu. 
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(4) 


X-)  +  n2h4  -  x-)-n2h4 

where  X-)  is  the  mineral  or  nonmineral  surface  that  retains  the  hydrazine 
molecule . 

The  adsorption  isotherm  experiments  were  conducted  under  condi¬ 
tions  that  minimize  Reactions  (1)  and  (2)  and  partitions  the  retention  of 
hydrazine  into  Reactions  (3)  and  (4).  Subsequent  desorption  experiments 
shed  some  light  on  the  magnitude  of  irreversible  adsorption  of  hydrazine 
in  the  system  studied. 

a.  Adsorption  of  Hydrazine  on  Na-Kaolinite 

Under  acidic  conditions  (pH=4.0)  and  low  hydrazine  concen¬ 
trations,  the  primary  mechanism  of  retention  was  on  the  exchange  sites. 
This  was  evident  because  of  the  concurrent  appearance  and  disappearance 
of  equal  amounts  of  Na+  and  hydrazine,  respectively,  in  the  supernatant. 
A  slight  rise  in  the  pH  of  the  clay  suspension  confirms  that  X’2H^+  was 
the  main  species  disappearing  from  solution  because  unprotonated 
hydrazine  would  have  to  react  with  protons  to  maintain  the  appropriate 
pKa  equilibrium.  At  higher  concentrations  some  hydrazine  was  adsorbed 
onto  sites  that  had  not  been  occupied  by  Na+.  No  iron  or  silicon  was 
detected  in  the  supernatant  before  or  after  the  addition  of  hydrazine 
(Tables  4  and  5).  This  would  indicate  that  kaolinite  was  stable  in  the 
presence  of  hydrazine  and  that  no  iron  coatings  were  reducted  by  hydra¬ 
zine.  Exhaustive  washing  of  the  clay  samples  with  0.1N  KC1  resulted  in  a 
90  percent  recovery  of  initially  adsorbed  hydrazine  from  the  highest 
hydrazine  additions  (Figure  17). 

Under  alkaline  conditions  (pH  =  8.0)  the  pattern  was  dif¬ 
ferent.  The  amount  of  hydrazine  adsorbed  at  any  given  solution  concen¬ 
tration  was  much  higher  than  at  pH  4.  However,  the  amount  of  sodium  dis¬ 
placed  by  hydrazine  was  similar  to  that  at  pH  4.  Most  of  the  adsorbed 
hydrazine  was  in  the  unprotonated  form.  This  resulted  in  a  lower  clay 
suspension  pH  upon  addition  of  hydrazine.  Only  80  percent  of  the  hydra¬ 
zine  adsorbed  was  recovered  after  washing  with  KC1  (Figure  17). 
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TABLE  4.  ANALYSIS  OF  KAOLINITE  SUPERNATANTS  AT  pH  4 . 


Before  adding  hydrazine 

After  adding  hydrazine 

Fe  Si 

Hydrazine  pH 

Fe 

Si 

mmol/1  mmol/1 

mmol/1 

mmol/ 1 

mmol/1 

0.00 

0.0 

0.30 

5.6 

0.00 

0.0 

0.00 

0.0 

0.91 

5.2 

0.00 

0.0 

0.00 

0.0 

1.54 

4.9 

0.00 

0.0 

0.00 

0.0 

2.19 

4.8 

0.00 

0.0 

0.00 

0.0 

2.68 

4.7 

0.00 

0.0 

0.00 

0.0 

3.31 

4.8 

0.00 

0.0 

TABLE  5.  ANALYSIS  OF  KAOLINITE  SUPERNATANTS  AT  pH  8. 


Before  adding  hydrazine 

After  adding  hydrazine 

Hydrazine  pH 

Fe 

Si 

mmol/1  mmol/1 

mmol/1 

mmol/ 1 

mmol/ 1 

0.00 

0.0 

0. 12 

00 

vO 

0.00 

0.0 

0.00 

0.0 

0.45 

6.4 

0.00 

0.0 

0.00 

0.0 

0.92 

6.4 

0.00 

0.0 

0.00 

0.0 

1.41 

6.8 

0.00 

0.0 

0.00 

0.0 

2.20 

7.4 

0.00 

0.0 

0.00 

0.0 

3.04 

7.5 

0.00 

0.0 
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HYDRAZINE  IN  THE  SUPERNATANT  (mmol/l) 


HYDRAZINE  IN  THE  SUPERNATANT  (mmol/l) 


Figure  17.  Adsorption  Isotherms  of  Hydrazine  on  Na-Kaolinite  (KGa-1) 
(A)  pH  4,  (B)  pH  8. 
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b.  Adsorption  of  Hydrazine  on  Na-Montorillonite 

The  initial  adsorption  isotherm  on  Na-montmorillo- 
nite  was  done  without  controlling  the  pH  (Figure  18).  The  fact  that 
adsorption  decreased  at  high  hydrazine  concentrations  revealed  that 
hydrazinium  produced  a  pH  increase  decreasing  the  concentration  of  hydra- 
zinium  in  solution  even  more. 

The  following  set  of  isotherms  under  controlled  pH 
confirmed  that  the  main  mechanism  of  adsorption  in  this  clay  suspension 
was  cation  exchange,  both  at  pH  4  and  8.  In  both  cases,  the  pH  of  the 
suspension  increased  up  to  2  units.  At  pH  8  the  amount  of  Na  released  by 
the  clay  was  higher  than  the  amount  of  hydrazine  being  adsorbed.  After 
analyzing  for  silicon  and  iron  we  found  that  small  amounts  of  montmoril- 
lonite  had  dissolved  (Tables  6  and  7). 


TABLE  6.  ANALYSIS  OF  MONTMORILLONITE  SUPERNATANTS  AT  pH  4. 
Before  adding  hydrazine  After  adding  hydrazine 


Fe 

mmol/ 1 

Si 

mmol/ 1 

Hydrazine 

mmol/ 1 

pH 

Fe 

mmol/ 1 

Si 

mmol  / 1 

0.03 

6.3 

0.01 

6.6 

0.06 

16.8 

0.03 

6.3 

0.02 

6.4 

0.06 

11.9 

0.03 

8.3 

0.07 

6.2 

0.04 

6.0 

0.03 

8.3 

0.18 

6.2 

0.00 

0.9 

0.03 

4.3 

0.33 

6.0 

0.00 

0.4 

0.03 

3.6 

0.53 

5.8 

0.00 

0.4 
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HYDRAZINE  IN  THE  SUPERNATANT  (mmol/l) 


Figure  18.  Adsorption  Isotherm  of  Hydrazine  on  Na-Montmorillonite 
(SAz-1)  Without  Controlling  the  pH  of  the  Suspension. 
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TA3LE  7.  ANALYSIS  OF  MOXTMORILLONITE  SUPERNATANTS  AT  pH  8 . 


Before  adding  hydrazine  After  adding  hydrazine 


Fe 

mmol/ 1 

Si 

mmol/ 1 

Hydrazine 

mmol/ 1 

pH 

Fe 

mmol/1 

Si 

mmol/ 1 

0.03 

9.4 

0.13 

9.5 

0.04 

8.8 

0.07 

13.2 

0.49 

9.8 

0.05 

11.2 

0.04 

4.2 

0.98 

9.4 

0.04 

8.1 

0.04 

3.7 

1.57 

9.4 

0.03 

5.7 

0.04 

6.1 

1.72 

9.5 

0.06 

16.1 

0.03 

3.6 

2.29 

9.2 

0.05 

10.3 

The  excess  sodium  in  the  supernatant  was  probably  associated 
with  the  dissolved  clay.  Adsorption  of  hydrazine  was  lower  in  the  mont- 
morillonite  suspension  at  pH  8.  This  rationale  is  logical  because  the 
pKa  of  hydrazine  indicates  that  the  majority  of  the  hydrazine  at  this  pH 
is  in  the  neutral  form  rather  than  the  N^H,."1"  ^orin*  Washing  the  clay  with 
KC1  desorbed  60%  of  the  adsorbed  hydrazine  at  pH  4.0  and  the  same  percen¬ 
tage  was  recovered  at  pH  8.0  (Figure  19). 

6.  Adsorption  of  Hydrazine  on  Arredondo  Soil  Horizons 

Selected  chemical  properties  of  Arredondo  soil  top  horizons  are 
presented  in  Table  8.  The  most  important  difference  among  them  with 
respect  to  hydrazine  adsorption  are  a  higher  clay  and  organic  matter  con¬ 
tent  in  the  Ap  horizon  and  a  lower  concentration  of  metals  in  the  E^ 
horizon. 

The  first  set  of  isotherms  from  Arredondo  horizons  is  presented 
in  Figures  20,  21,  and  22.  The  isotherms  were  carried  out  in  an  anaero¬ 
bic  incubator,  maintaining  a  constant  ionic  strength.  Hydrazine  ad¬ 
sorption  was  correlated  to  organic  matter  and  clay  content.  Adsorption 
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Figure  19.  Adsorption  Isotherms  of  Hydrazine  on  Na-Montmorillonite 
(A)  pH  4,  (B)  pH  8. 


Figure  20. 


Adsorption  Isotherms  of  Hydrazine  on  Arredondo-Ap  (Ionic 
Strength  0.01  N) . 
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HYDRAZINE  IN  THE  SUPERNATANT  (mmol/l) 


HYDRAZINE  IN  THE  SUPERNATANT  (mmol/l) 


Figure  21.  Adsorption  Isotherms  of  Hydrazine  on  Arredondo-El  (Ionic 
Strength  0.01  N) 
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HYDRAZINE  IN  THE  SUPERNATANT  (mmol/l) 
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HYDRAZINE  IN  THE  SUPERNATANT  (mmol/l) 


Figure  22.  Adsorption  Isotherms  of  Hydrazine  on  Arredondo-E2  (Ionic 
Strength  0.01  N) . 
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TABLE  8.  PROPERTIES  OF  ARREDONDON  SOIL  TOP  HORIZONS 


Horizon 

%  Clay 

%  O.M. 

pH 

Cu 

Hn 

A1 

Fe 

MG  /  Kg 

soil 

Ap 

2.6 

1.84 

6.0 

0.04 

9.6 

221 

17.6 

h 

E2 

1.7 

0.34 

5.9 

0.24 

2.5 

250 

17.6 

1.8 

0.14 

5.4 

0.16 

1.2 

86 

10.4 

was  higher 

at  pH  8 

in  all 

three 

horizons 

indicating  that  both 

species 

neutral  hydrazine  and  hydrazinium,  were  adsorbed.  Because  ionic  strength 

+2 

was  maintained  with  CaCl^,  hydrazinium  ion  had  to  compete  with  Ca  for 
the  exchange  sites  and  adsorption  was  probably  lower. 

In  the  second  set  of  isotherms  from  Arredondo  soil  horizons, 
total  hydrazine  adsorbed  and  hydrazine  in  exchangeable  sites  were  sepa¬ 
rated  by  measuring  Na+^  displaced  from  the  surface  of  the  clay  to  the 
supernatant  by  the  hydrazinium  ion  (Figures  23  and  24). 

The  main  mechanism  of  adsorption  at  pH  4  and  low  hydrazine  con¬ 
centrations  in  the  Arredondo  Ap  horizon  was  cation  exchange.  However,  at 
higher  concentrations  more  than  50  percent  of  the  hydrazine  interacted 
with  a  different  kind  of  binding  site.  Because  the  Ap  horizon  had  almost 
2  percent  organic  matter  it  appears  that  hydrazine  was  adsorbed  on 
organic  surface  functional  groups  such  as  carbonyl  groups.  No  hydrazine 
was  recovered  during  the  desorption  process  with  0.1  N  KC1.  The  results 
were  very  similar  at  pH  8.0  except  for  a  higher  adsorption  at  high 
concentrations  on  non  exchangeable  sites.  At  this  pH,  20  percent  of  the 
hydrazine  initially  adsorbed  was  extracted. 

Analysis  of  the  supernatant  for  the  Arredondo  Ap  and  E2  soil 
horizons  are  shown  in  Tables  9,  10,  11,  and  12.  Under  acidic  conditions 
(pH  4.0)  it  appears  that  the  main  species  removed  from  solution  was  the 
hydrazinium  ion  which  resulted  in  an  increase  in  solution  pH  (Table  9  and 
11).  Under  alkaline  conditions  (pH  8.0),  there  vas  a  subsequent  decrease 
in  pH  as  a  result  of  hydrazine  (the  neutral  species)  being  the  main 

species  removed  from  solution.  These  shifts  in  pH  are  a  result  of  the 
pKa  of  hydrazine  as  the  solution  obtains  equilibrium. 
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HYDRAZINE  IN  THE  SUPERNATANT  (mmol/l) 
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HYDRAZINE  IN  THE  SUPERNATANT  (mmol/l) 


Figure  23.  Adsorption  Isotherms  of  Hydrazine  on  Arredondo-Ap . 
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HYDRAZINE  IN  THE  SUPERNATANT  (mmol/I) 


HYDRAZINE  IN  THE  SUPERNATANT  (mmol/l) 


Figure  24.  Adsorption  Isotherms  of  Hydrazine  on  Arredondo-E2 . 
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TABLE  9.  ANALYSIS  OF  ARREDONDO  Ap  SUPERNATANTS  AT  pH  4 . 


Before  adding  hydrazine  After  adding  hydrazine 


Fe 

mmol/ 1 

Si 

mmol/ 1 

Hydrazine 
mmol/ 1 

pH 

Fe 

mmol/1 

Si 

mmol  / 1 

0.14 

1.3 

0.01 

6.4 

0.15 

1.3 

0.12 

1.1 

0.05 

6.0 

0.12 

1.0 

0.12 

1.2 

0.25 

5.7 

0.00 

0.2 

0.15 

1.5 

0.54 

5.4 

0.00 

0.5 

0.13 

1.3 

0.93 

5.3 

0.01 

0.5 

0.16 

1.5 

1.47 

5.0 

0.02 

0.4 

TABLE  10.  ANALYSIS  OF  ARREDONDO-Ap  SUPERNATANTS  AT  pH  8. 


Before  adding  hydrazine 

After  adding  hydrazine 

Fe  Si 

Hydrazine  pH 

Fe 

Si 

mmol/1  mmol/1 

mmol/ 1 

mmol/1 

mmol/1 

0.08 

0.5 

0.02 

6.6 

0.16 

1.7 

0.08 

0.4 

0. 14 

6.4 

0.  16 

1.8 

0.08 

0.4 

0.27 

6.5 

0.19 

1.7 

0.08 

0.5 

0.52 

6.5 

0.  16 

1.2 

0.07 

0.6 

0.83 

6.6 

0.20 

1.7 

0.09 

0.6 

1.28 

6.7 

0.20 

1.7 
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TABLE  11.  ANALYSIS  OF  ARREDONDO-E2  SUPERNATANTS  AT  pH  4. 


Before  adding  hydrazine 

After  adding  hydrazine 

Fe  Si 

Hydrazine  pH 

Fe 

Si 

mmol/1  mmol/1 

mmol/ 1 

irtmol/ 1 

mmol/ 1 

0.00 

0.0 

0.25 

5.8 

0.00 

0.3 

0.00 

0.90 

5.5 

0.00 

0.2 

0.00 

0.0 

1.57 

5.3 

0.00 

0.5 

0.00 

2.28 

5.1 

0.00 

0.5 

0.00 

0.1 

3.04 

4.9 

0.00 

0.5 

0.00 

0.1 

3.77 

4.8 

0.00 

0.5 

TABLE  12.  ANALYSIS  OF  ARREDONDO-E2  SUPERNATANTS  AT  pH  8 . 


Before  adding  hydrazine 

After 

adding  hydrazine 

Fe  Si 

mmol/1  mmol/1 

Hydrazine 
mmol/ 1 

pH  Fe 

mmol/1 

Si 

mmol/ 1 

0.8 

0.18 

7.0 

0.16 

1.5 

0.07 

0.8 

1.18 

7.0 

0.01 

0.4 

0.08 

0.8 

1.87 

7.0 

0.01 

0.5 

0.07 

0.8 

2.76 

7.0 

0.01 

1.2 

0.05 

0.5 

3.17 

7.3 

0.01 

0.6 

0.04 

0.4 

11.90 

7.7 

0.01 

0.6 

J 
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Arredondc  E0  horizon  adsorbed  less  hydrazine  than  the  Ap  hori¬ 
zon.  Under  acidic  conditions  the  main  mechanism  of  adsorption  was  cation 
exchange  specially  at  low  hydrazine  concentrations.  Under  alkaline  con¬ 
ditions  (pH  8)  hydrazine  was  adsorbed  mainly  in  nonexchangeable  sites.  A 
summary  of  the  adsorption  data  for  all  materials  tested  are  shown  in 
Figure  25. 

D.  CONCLUSIONS 

Hydrazine  autoxidation  in  solution  appeared  to  follow  the  reaction 
in  Equation  ( 1) . 


N2H4  +  °2 - N2  +  2H->°  (1) 

Hydrazine  autoxidation  occurred  only  at  pH  values  above  4.0. 

Autoxidation  did  not  occur  when  the  pH  was  less  than  4.0  even  in  the 

presence  of  a  catalyst.  At  pH  values  above  4.0  the  rate  of  reaction  was 

first-order  with  respect  to  Cu  concentration.  Other  factors  observed  to 

affect  the  rate  of  hydrazine  autoxidation  in  solution  were  buffer 

concentrations  (phosphate),  ionic  strength,  and  temperature.  For  the  two 

natural  waters  studied  a  half-life  of  8  to  12  days  was  calculated. 

Hydrazine  degraded  faster  in  the  presence  of  the  clay  minerals 

2+ 

kaolinite  and  montmorillonite  than  in  clay-free  solutions.  When  Cu  was 

present  in  the  clay  studies  the  rate  of  hydrazine  degradation  was 

2+ 

enhanced  above  that  of  clay  alone.  This  was  a  result  of  the  free  Cu 

24- 

in  solution  rather  than  a  clay-Cu  surface  reaction. 

The  nature  and  extent  of  hydrazine  adsorption  by  clays  and  soils  is 
highly  dependent  on  the  types  of  surface  functional  groups  present  in  the 
solid  surfaces.  Under  acidic  conditions  (pH  4.0)  99.9%  of  the  hydrazine 
occurred  as  the  protonated  species  (N^H^"1")  and  should  have  been  able  to 
readily  replace  Na+  from  exchange  sites.  Under  alkaline  conditions  (pH 
8.0),  50%  of  the  hydrazine  was  protonated  and  50%  was  in  neutral  form. 

In  the  case  of  kaolinite,  where  most  of  the  surface  functional 
groups  consists  of  the  inorganiuc  OH  groups  exposed  on  broken  edges, 
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UNEXTRACTED  HYDRAZINE  (umol/g) 
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Figure  25.  Hydrazine  Extraction  From  Kaolinite  and  Montmorillonite  Clay 
and  From  Arredondo  Ap  and  E2  Horizons  at  pH  4  and  pH  8. 


hydrazine  primarily  replaced  ha  from  exchange  site?  under  acidic 
conditions.  Under  alkaline  conditions,  the  same  amount  of  Na+  was 
displaced  by  hydrazine  as  at  pH  4.0;  however,  most  of  the  adsorbed 
hydrazine  was  retained  on  sites  that  had  not  previously  been  occupied  by 

-U 

ha'.  The  most  likely  mechanism  would  be  H  bonding  to  the  siloxane 
ditrigonal  cavity  on  the  outer  surface  of  the  clay  particles.  Ninety 
percent  of  the  hydrazine  adsorbed  at  pH  4  was  removed  by  KC1  washing, 
whereas  80%  was  removed  at  pH  8.0. 

Montmorillonite  has  a  much  larger  CEC  due  to  isomorphic  substitution 
in  its  octahedral  layer.  It  primarily  retained  hydrazinium  ion  on 
exchange  sites,  both  under  acidic  and  alkaline  conditions.  Hydrazine 
adsorption  was  lower  at  pH  8.0  due  to  the  reduced  amounts  of  hydrazine 
ion  under  alkaline  conditions.  Adsorption  of  small  amounts  of  h’  Hc+  at 

z.  0 

pH  values  near  the  pKa  resulted  in  equilibrium  shift  favoring  the  N0H, 

-  -i 

species,  an  increase  in  pH,  and  a  subsequent  reduction  in  the  N?H^ 
available  for  exchange.  Only  60%  of  the  hydrazine  adsorbed  at  both  pH 
values  could  be  removed  with  KC1.  The  remaining  40%  was  either 

irreversibly  adsorbed  or  could  have  been  degraded.  A  possible  mechanism 
for  irreversible  adsorption  could  be  through  complexation  with  iron  in 
the  structure  of  the  clay. 

Even  though  the  clay  content  (primarily  kaolinite)  in  the  upper 
horizons  of  the  Arredondo  soil  was  higher  than  the  organic  matter 
content,  hydrazine  adsorption  was  better  correlated  to  organic  matter 
content.  This  reflects  its  higher  CEC  and  affinity  of  the  organic 
reactive  groups  for  hydrazine.  Under  acidic  conditions  and  at  low 
hydrazine  concentrations,  hydrazine  primarily  replaced  Na+  from  exchange 
sites;  however,  none  of  the  hydrazine  adsorbed  at  pH  4.0  was  removed  from 
any  of  the  two  horizons  by  repeated  washings  with  KC1,  and  only  a  small 
fraction  was  extracted  by  0.1  N  HC1,  We  believe  that,  after  hydrazine 
was  retained  on  the  exchange  sites  of  organic  matter,  hydrazine  reacted 
further  with  other  neighboring  groups  in  the  organic  structure,  thus 
preventing  its  extraction  with  KC1.  Under  alkaline  conditions  (pH  8) 
hydrazine  was  adosrbed  more  readily  than  at  pH  4;  however,  the  amounts  of 
sodium  released  were  slightly  smaller.  This  indicates  a  preference  for 
N0H^  at  this  pH.  Most  of  the  hydrazine  that  had  replaced  Na+  was  removed 
by  a  single  washing  with  KC1. 
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SECTION  III 


SURFACE  CHEMISTRY  OF  HYDRAZINE 


A.  INTRODUCTION 


The  attenuation  of  hydrazine  and  its  methyl  derivatives  by  soil  and 
aquifer  constituents  is  of  interest  to  the  United  States  Air  Force 
because  of  their  use  in  several  Air  Force  weapon  systems  and  their 
adverse  biological  activity  to  man.  Although  the  macroscopic  adsorption 
behavior  of  hydrazine  by  clay  minerals  has  been  studied  (Reference  1), 
little  is  known  about  the  chemical  mechanism(s)  of  interaction.  Adsorp¬ 
tion  date  are  macroscopic  intrinsically  insensitive  to  molecular  pheno¬ 
mena;  adsorption  data  cannot  be  interpreted  to  obtain  unequivocal, 
molecular-level  information  about  the  adsorbed  species  (Reference  8). 
The  objective  of  this  research  effort  will  be  to  examine  the  molecular- 
level  interactions  of  hydrazine  with  kaolinite  using  several  ncn- 
invasive,  in  s±Lu  spectroscopic  methods. 

The  vibrational  spectrum  of  kaolinite,  a  ubiquitous  1:1  clay  mineral 
found  throughout  the  world,  has  been  studied  more  intensively  than  that 
of  any  other  1: 1,2:1.  or  2:2  clay  mineral  (Reference  9).  This  spectro¬ 
scopic  interest  in  kaolinite  is,  in  part,  a  result  of  its  well-resolved, 
sharp  hydroxyl  stretching  bands.  In  contrast  to  the  broad  vibrational 
linewidths  of  hydrous  metal  oxides  and  2:1  clay  minerals  that  typically 
have  bandwidths  of  greater  than  50-100  cm  the  measured  full-width-at- 
half-maximum  (FWHM)  values  for  the  hydroxyl  stretching  bands  of  kaolinite 
range  (Reference  10)  between  5  and  12  cm  .  These  comparatively  sharp 
vibrational  bands  of  kaolinite  provide  surface-sensitive  probes  of 
changes  in  the  chemical  environment  surrounding  these  hydroxyl  groups. 

A  more  complete  vibrational  analysis  of  adsorbate-surface  complexes 
can  be  obtained  when  perturbed  vibrational  modes  of  the  adsorbate  and  of 
the  surface  are  observed.  This  study  will  employ  the  surface  hydroxyl 
groups  of  kaolinite  as  molecular  probes  of  the  interation  between  kaoli¬ 
nite  and  hydrazine  upon  formation  of  the  intercalation  complex.  Changes 
in  the  frequency,  intensity,  and  lineshape  of  the  adsorbed  species  can 
provide  direct  information  about  the  structure  of  the  adsorbed  species 


and  what  chemical  functional  group (s)  of  the  adsorbate  are  involved  in 
bonding  to  the  surface.  However,  these  data  do  not  provide  unambiguous 
information  about  the  orientation  of  the  adsorbed  species,  or  about  which 
surface  functional  groups  are  involved  in  bonding  to  the  adsorbate.  This 
information  can  best  be  obtained  by  observing  the  perturbed  vibrational 
models  of  the  substrate.  The  well-resolved  IR-  and  Raman-active  bands  of 
kaolinite  should  allow  perturbed  vibrational  modes  of  the  substrate  to  be 
resolved . 

B.  EXPERIMENTAL 

1.  Clay  Mineral  Preparation  for  FT-IR  Analysis 

The  clay  mineral  samples  studied  were  obtained  from  the  Source 
Clays  Repository  located  at  the  University  of  Missouri  and  operated  by 
the  Clay  Minerals  Society.  The  kaolinite  sample  was  the  well-crystalline 
KGa-1  Georgia-kaolinite  collected  from  Washington  county,  Georgia,  and 
the  montmorillonite  samples  was  the  Saz-1  Cheto-montmorillonite  collected 
in  Apache  county,  Arizona.  A  complete  description  of  the  physical  pro¬ 
perties  of  these  clay  samples  has  been  given  by  van  Olphen  and  Fripiat 
(Reference  II).  In  addition,  Raman  and  IR  spectra  of  the  KGa-1  kaolinite 
clay  have  been  reported  by  Johnston  et.  al.  (Reference  10).  The 
collodial  behavior  of  1:1  clay  minerals  (i.e.,  kaolinite  and  serpentine 
group  minerals)  are  fundamentally  different  from  that  of  the  2:1  clays; 
therefore,  separate  clay  mineral  preparation  and  purification  procedures 
were  used  for  preparing  the  KGa-1  and  SAz-1  clay  materials. 

The  procedure  used  to  prepare  the  SAz-1  Cheto-montmorillonite 
clay  sample  was  similar  to  that  described  by  Sposito  et  al.  (Reference 
12)  .  Sixty  grams  of  the  crude  reference  clay  were  placed  in  1  liter  of 
distilled,  deionized  water  and  mixed  for  2  hours  with  a  mechanical 
stirrer.  The  fraction  having  an  equivalent-spherical-diameter  (e.s.d.) 
of  <0.5dm  in  suspension  was  separated  by  centrifugation  and  then 
flocculated  by  adding  800  mL  of  a  solution  containing  0.001  M  HC1  in  1M 
NaCl.  The  flocculated  clay  in  the  NaCl-HCl  solution  was  centrifuged  for 
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15  minutes  at  5000  rpm  on  a  Sorvall  SS-3  centrifuge  equipped  with  a  Model 
G.S.A.  head.  After  the  clear  supernatant  solution  was  carefully 
decanted,  the  SAz-1  clay  plug  at  the  bottom  of  the  centrifuge  tube  was 
redispersed  manually  into  a  fresh  NaCl-HCl  solution  and  the  suspension 
was  shaken  on  try  shaker  for  20  minutes.  The  suspension  was  centrifuged 
again  as  described  above.  This  washing  procedure  was  repeated  about 
three  times  until  the  pH  value  of  the  supernatant  solution  dropped  to 
3.0.  After  the  final  NaCl-HCl  wash  and  centrifugation,  the  Saz-1  clay 
plugs  were  redispersed  into  a  0.1  M  NaCl  solution  and  a  similar  washing 
procedure  was  repeated  about  five  times  using  the  0.1  M  NaCl  solution 
until  the  pH  of  the  supernatant  solution  equaled  that  of  the  0.1  M  NaCl 
solution  (pH  5.5).  After  the  last  wash,  the  clay  was  redispersed  in  0.1 
M  NaCl  and  stored  in  suspension  prior  to  the  spectroscopic  analysis. 

The  clay  preparation  procedure  used  for  the  KGa-1  kaolinite 
sample  was  similar  to  the  procedure  described  by  Johnston  et  al. 
(Reference  10).  Two  hundred  grams  of  the  untreated  KGa-1  clay  were 
placed  in  1  liter  of  distilled,  deionized  water  and  dispersed  for  size 
fractionation  by  adjusting  the  pH  to  9.5  by  the  addition  of  few  drops  of 
0.01  M  NaOH.  The  kaolinite-suspension  was  size  fractionated  immediately 
by  centrifugation  and  the  fraction  have  an  e.s.d.  of  <2.0  ym  was  col¬ 
lected.  The  suspension  then  was  flocculated  by  the  addition  of  1  liter 
of  0.0001  M  HC1  in  1.0M  NaCl.  To  separate  the  supernatant  solution  from 
the  flocculated  clay,  the  suspension  was  centrifuged  at  a  relative  centi- 
fugal  force  of  700.  The  supernatant  solution  was  then  decanted  and  its 
pH  value  measured.  The  kaolinite  samples  were  redispersed  manually  into 
1  liter  of  the  0.0001  M  HC1/1.0  M  NaCl  solution,  and  the  washing  proce¬ 
dure  was  repeated  until  the  pH  value  of  the  supernatant  solution  equaled 
that  of  the  washing  solution  (pH  3)  this  objective  typically  required 
five  washed.  At  this  point  in  the  procedure,  the  clay  was  redispersed 
into  1  liter  of  0.01  M  NaCl,  and  the  above  procedure  was  repeated  five 
more  times.  The  treatment  was  adequate  to  raise  the  pH  of  the  superna¬ 
tant  solution  to  5.5.  The  final  step  of  the  procedure  consisted  of 
redispersing  the  clay  into  0.01  M  NaCl  and  adjusting  the  volume  of  the 
flocculated  suspension  such  that  a  clay  concentration  of  20  percent  (w/w) 
was  obtained. 
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c. 


DESCRIPTION  OF  THE  BOMEN  DA3.10  FOURIER  TRANSFORM  SPECTROMETER 


FT-IR  spectra  were  obtained  on  a  Bomem  DA3.10  Fourier  transform 
spectrometer.  The  DA3.10  spectrometer  utilizes  a  Michelson  interfero¬ 
meter  with  the  beamsplitter  positioned  at  a  30-degree  angle  to  the  opti¬ 
cal  axis.  A  sixty  degree  f ield-of-view  Infrared  Associates  broad-band, 
liquid  nitrogen  cooled,  mercury-cadmium-telluride  (MCT)  detector  fitted 
with  a  KRS-5  infrared  window  was  used  for  these  FT-IR  studies.  The 

active  area  of  the  detector  element  was  1.032  mm,.  The  measured  D*  value 

9  0.5 

of  the  detector  was  3.13  x  10  cm  Hz  '  and  the  cutoff  wavenumber  was  400 
cm  (25  microns).  A  midinfrared,  watercooled,  ceramic  silicon  carbide 
source  was  used  for  the  mid-IR  region  and  a  visible  quartz  tungsten  halo¬ 
gen  source,  mounted  inside  the  spectrometer,  was  used  for  sample  align¬ 
ment  . 

The  optical  resolution  used  in  these  studies  ranged  between  2.0  and 
0.5  wavenumbers.  A  preliminary  study  showed  that  the  spectra  of  kaoli- 
nite  were  not  instrument-limited  for  nominal  resolution  values  of  0.5, 
1.0,  2.0  cm-1.  At  4.0  cm  ^resolution,  however,  the  spectrum  of  kaolinite 
was  instrument-limited.  The  FT-IR  spectra  of  the  SAz-1  Cheto  montmoril- 
lonite  sample  were  not  instrument  limited  at  a  resolution  of  2.0  cm  A 
Hamming  apodization  function  was  used  to  weight  the  cosine  wave 
interf erograms .  Initially,  a  low-resolution  double-sided  interf erogram 
was  collected  and  the  phase  angle  deviation  from  zero  of  the 
interf erograms  was  determined  using  the  Forman  method  (References  13-15). 
The  phase  correction  determined  from  the  double  sided  interf erogram  was 
stored  in  the  HSVP.  Subsequently,  all  single  sided,  high  resolution 
interf erograms  were  corrected  using  these  stored  values.  Typically, 
16000  data  points  collected  per  single  sided  interf erogram  with 
approximately  900  data  points  collected  before  the  centerbrust. 
Programmable  low-pass  and  high-pass  analog  filters  were  used  to  optimize 
the  signal-to-noise  ratio.  A  low  pass  cut-off  filter  of  20  KHz,  and  a 
high-pass  cut-off  filter  of  2  Nz  (3  db  cut-off  frequencies). 
Interferograms  were  collected  with  a  moving  mirror  velocity  of  0.5  cm/sec 
which  corresponded  to  a  sampling  frequency  of  15.8  KHz.  The  dynamic 
range  of  the  analog-to-digital  converter  was  16  bits  and  the  word  length 
of  the  Vaxstation-II  computer  was  32  bits.  One  sample  point  was 
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collected  per  laser  fringe  with  a  resolution  of  16  bits  per  sample. 
Typically,  256  scans  were  coadded  for  the  sample  and  reference  files. 
The  total  measurement  time  for  coadding  256  scans  was  200  seconds  for  1 
cm  ^resolution  and  600  seconds  for  0.5  cm  ^resolution.  No  smoothing  or 
interpolation  algorithms  were  used. 

The  sample  compartment  of  the  Bomem  DA3.10  was  operated  under  a 
reduced  pressure  of  0.05  torr  to  remove  interferences  from  H^O  and  C0o 
and  other  vapor  phase  constituents.  The  sample  cover  access  plates  were 
modified  to  accommodate  two  3/8"  MDC  quick-disconnect  vacuum  tube  feed¬ 
throughs  which  provided  a  connection  through  the  vacuum  wall  of  the  spec¬ 
trometer  from  the  vacuum  manifold  to  the  CE-TR  cell  in  the  sample  com¬ 
partment  . 

D.  DESCRIPTION  OF  THE  VAXSTATION-II  DATA  ACQUISTI0N  SYSTEM 

The  data  acquisition  system  for  the  Bomem  DA3.10  spectrometer  was  a 
Digital  Equipment  Corporation  (DEC)  Vaxstation-II  computer.  The 
Vaxstation-II  computer  consists  of  a  yVAX-ii  cpu  with  a  dedicated  high- 
resolution,  bit-mapped  graphic  display  terminal.  The  Bomem  DA3.10  spec¬ 
trometer  is  connected  directly  to  a  high-speed  vector  processor  (HSVP) 
through  a  dedicated  50-line  parallel  interface.  The  Vaxstation-II  com¬ 
municated  with  the  HSVP  through  a  National  Instruments  General  Purpose 
Interface  Bux  (GPIB)  Card  (Model  No.  GPIB11V-2)  which  was  resident  on  the 
Q-bus  of  the  Vaxstation-II.  The  initial  data  acquisition  system  used  to 
collect  data  from  the  Bomem  was  a  DEC  PDP  11/23  computer  (which  also 
supports  the  Q-bus).  The  use  of  the  PDP  11/23  was  limited  for  this 
application  because  of  the  16-bit  word-length  and  address  restriction, 
limited  storage  capability,  and  the  extremely  slow  display  output  which 
resulted  from  the  '3600  baud  serial-throttle  of  the  VT-240  terminal.  The 
slow  display  and  low  resolution  of  the  VT-240  terminal,  in  particular, 
were  serious  limitations  of  the  PDP  11/23.  In  terms  of  overall 
computational  performance,  the  Vaxstation-II  (yVAX-II)  system  is  2  20 
times  faster  than  the  PDP  11/23.  Bomem  does  not  support  their  jftware 
on  the  Vaxstation-II,  thus,  the  Bomem  Fortran-77  and  assembly-level 
(Macro-11)  codes  were  modified  and  transferred  to  the  Vaxstation-II. 
Most  of  the  routines  could  be  transferred  directly  to  the  Vaxstation-II 


60 


with  little,  or  no,  modification;  however,  the  HSVP  routines  had  to  be 
re-written  altogether  because  of  the  significant  differences  between  the 
VAX/VMS  and  RT-11  operating  systems. 

In  addition  to  the  HSVP  routines,  new  codes  were  developed  to  sup¬ 
port  the  VR260  graphic  display  terminal.  The  Vaxstation-II  software  pro¬ 
vided  two  environments  for  the  development  of  the  graphic  display  codes: 
the  VAX  GKS  run-time  library  of  graphical  functions  that  are  defined  by 
the  ANSI  X3. 124-1985  and  ISO  7942-1985  Graphic  Kernel  System  (GKS)  stan¬ 
dards,  or  the  device  dependent  MicroVMS  Workstation  Graphics.  The  VAX 
GKS  environment  was  chosen  over  the  latter  because  GKS  is  supported  on  a 
number  of  different  machines  (e.g.,  DEC,  IBM,  HP  etc.)  and  support  a  num¬ 
ber  of  different  graphic  output  formats  including  the  Tektronix 
4010/4014,  DEC  VT-125,  DEC  Vaxstation-II  VR260,  LVP16 ,  HP7470,  HP7475A, 
LN03,  and  GKS  Metafile  formats.  The  graphic  display  codes  were  developed 
on  the  Vaxstation-II  operating  under  the  VAX/VMS  Version  4.5  operating 
system  using  V3.1  of  the  MicroVMS  workstation  software.  The  VAX  GKS  V2.0 
run-time  library  of  graphical  functions  were  called  form  VAX  Fortran-77 
V4 . 


E.  DESCRIPTION  OF  THE  CONTROLLED-ENVIRONMENT-TRANSMISSION  CELL  AND 
MANIFOLD 

The  controlled-environment-transmission  (CE-TR)  cell  was  a  modified 

10  cm  pathlength  cell  fitted  with  two  Kontes  teflon  stockcocks,  and  two 

49  mm  x  3  mm  ZnSe  windows  using  Viton  o-rings.  The  kontes  teflon  stock- 

cocks  were  modified  at  the  glass  shop  to  accommodate  two  Lab-Crest  Model 

® 

571-190  9  mm  Solv-Seal  joints.  The  Solv-Seal  joint  system  incorporates 

_8 

a  TFE  seal  with  two  Viton  o-rings  and  can  be  pumped  down  to  10  torr. 
Clay  films  were  held  in  place  in  the  CE-TR  cell  using  a  TFE  holder  which 
allowed  the  films  to  be  mounted  at  90  or  60  degree  angles  of  incidence  to 
the  modulated  IR  beam.  The  CE-TR  cell  was  mounted  on  a  Newport  Research 
Corporation  (NRC)  Model  460-XYZ-DM  translation  stage  which  was  used  to 
position  the  cell  in  the  spectrometer. 

The  vacuum  system  consisted  of  a  195  liter-minute  ^  mechanical  pump, 
3-angstrom  molecular  sieve  trap,  three  way  isolation  valve,  water-cooled 
Edwards  Eiffstak  63  oil-diffusion  pump  (135  liter-sec  ^),  Edwards  Penning 


61 


4  Pirani  gauge-head  assembly,  ISO-63  flange  to  KF-40  flange  adapter, 
KF-40  isolation  valve,  KF-16  relief  valve,  1  meter  KF-40  stainless  steel 
bellows,  glass  liquid  nitrogen  trap  fitted  with  Lab-Crest  Model  571-190 
15  mm  Solv-seal  joints,  and  a  five-place  Teflon  /glass  Airless-ware  mani- 

<g) 

fold  fitted  with  Lab-Crest  Model  571-190  9  mm  Solv-Seal  joints.  Because 
all  of  the  glass  joints  were  terminated  with  the  Lab-Crest  Solv-seal 
joints,  the  vacuum  manifold  was  highly  modular.  An  Edwards  Model  1005 
controller  fitted  with  two  Pirani  gauge  heads  and  one  Penning  gauge  were 
used  to  monitor  the  pressure  in  the  CE-TR  cell  and  vacuum  manifold  in  the 
760  torr  to  10  ^  torr  range. 

F.  LOW  TEMPERATURE  FT-IR  STUDIES 

Low  temperature  FT-IR  spectra  were  obtained  on  the  Bomem  DA3.1C 
spectrometer  using  an  air  cooled  Air  Products  CS-202  cryogenic  refrigera¬ 
tion  system.  The  CS-202  expander  module  was  mounted  in  a  non-standard 
vacuum  flange  in  the  sample  compartment  of  the  DA3.10  spectrometer.  The 

expander  module  was  connected  to  an  external  medium/high  vacuum  pumping 
—8 

system  (10  torr).  A  25mm  x  2mm  ZnSe  window  was  mounted  in  the  Air  Pro¬ 
ducts  DMX-1  sample  holder  using  indium  gaskets.  The  vacuum  shroud  was 
fitted  with  2  49mm  x  4mm  ZnSe  windows  using  Viton  o-rings.  During  the 
operation  of  the  cryogenic  refrigeration  system,  the  pressure  in  the 
expander  module  was  maintained  below  5  x  10  ^  torr.  The  temperature  of 
the  sample  holder  was  measured  using  a  Chromel/Gold  0.07  Atomic  %  Iron 
thermocouple  connected  to  an  Air  Products  Model  APD-E  digital  temperature 
controller.  Temperature  of  the  sample  holder  was  regulated,  using  the 
APD-E  controller  and  a  20-watt  proportional-plus-reset-plus-rate  con¬ 
troller. 

G.  RESULTS 

Figure  26  shows  the  controlled-environment  t-  ransmission  (CE-TR) 
FT-IR  spectrum  of  a  thin  deposit  of  KGa-1  kaolinite  on  a  ZnSe  window  in 
the  400  cm  *  to  4000  cm  ^  region.  Expanded  plots  of  this  spectrum  are 
shown  in  Figures  27  and  28  and  the  observed  band  positions  are  tabulated 
in  Table  13.  Preliminary  FT-IR  studies  showed  that  the  KGa-1  kaolinite 


62 


1 .6584 


WAVENUMBER  CM (-1) 

Figure  26.  Controlled  Environment  Transmission  (CE-T^)  FT-IR  Absorbance 
Spectra  of  KAa-1  Kaolinite  in  the  500  cm  to  4000  cm 
Region  at  300  K. 
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Figure  27.  Ce-Tr-Ft-IR  Absorbance  Spectra  of  KGa-1  Kaolinite  in  the  500 
cm  to  1200  cm  Region  at  300  K. 
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igure  28.  CE-TR-FT-IR  Absorbance  Spectra  of  KGa-l  Kaolinite  in  the 
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TABLE  13.  BAND  ASSIGNMENTS  OF  KGa-1  KAOLINITE. 


544 

606.0 

643.4 

690.1 

787.8 
799.7 
915.3 

939.9 

1009.6 
1034.2 

1116.6 

3620.1 

3652.1 

3668.9 

3693.9 


Si-O-Al  skeletal  vibrations 
Si-O-Al  skeletal  vibrations 


-OH  deformation  -  gibbsite  layer 
-OH  deformation  -  gibbsite  layer 


Al-O-H  deformation,  Inner-Surface 
hydroxyl 

A1-0-H  deformation,  Inner  Hydroxyl 
Si-0  stretch 
Si-0  stretch 
Si-0  stretch 

Al-O-H  stretch,  Inner  hydroxyl  group 
A1-0-H  stretch,  Inner-Surface  hydroxyl 
group 

Al-O-H  stretch,  Inner-Surface  hydroxyl 


group 

Al-O-H  stretch,  Inner-Surface  hydroxyl 
group 
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spectra  were  not  instrument  limited  at  0.5  and  1.0  cm  *  nominal  resolu¬ 
tion  values.  At  2.C  cm  ^  a  nominal  resolution  value  of  1.0  cm  ^  was 
chosen  for  this  study.  The  positive-slope  of  the  baseline  in  the  spec¬ 
trum  of  the  KGa-1  kaolinite  deposit  shown  in  Figure  1  is  a  reproducible 
feature  of  FT-IR  spectra  of  kaolinite  deposits  on  IR  window  materials, 
ZnSe  was  used  in  this  study. 

The  derivative  shaped  baseline  in  the  v(O-H)  region  is  an  artifact 
resulting  from  the  Reststrahlen  effect  (Reference  16).  This  behavior 
results  from  the  variation  of  the  refractive  index  of  the  sample  near  the 
absorption  bands  of  the  clay.  No  baseline  correction  or  smoothing  algo¬ 
rithms  were  used  to  manipulate  the  spectral  data  presented  in  Figures  26 
to  28.  One  advantage  of  diffuse  reflectance  sample  presentation  over  the 
transmission  sample  presentation  method  employed  in  this  study  is  that 
the  Reststrahlen  effect  is  absent  using  the  diffuse  reflectance  method 
(Reference  17) . 

An  expanded  plot  of  the  KGa-1  kaolinite  absorbance  FT-IR  spectrum  m 
the  500  to  1200  cm  ^  region  is  shown  in  Figure  27.  There  is  general 
agreement  in  the  literature  that  the  bands  at  1010,  1034,  and  1117  cm  1 
are  Si-0  stretching  bands.  The  frequencies  of  these  bands,  the  1117  cm  * 
band  in  particular,  are  sensitive  to  the  size  and  shape  of  the  particles, 
and  to  the  orientation  of  the  particles  with  respect  to  the  IR  beam. 
Selective  deuteration  (Reference  18-19)  studies  have  shown  that  the  915 
and  940  cm  ^  bands  are  assigned  to  the  A1-0-H  deformation  bands  of  the 
inner-surface,  and  inner  hydroxyl  groups  of  kaolinite,  respectively. 
Farmer  et  al.  (References  20-21)  have  assigned  the  690,  753  and  799  cm  * 
bands  to  hydroxy  groups  of  the  gibbsite  layer  of  kaolinite.  The  band 
assignments  for  the  lower  frequency  modes  of  kaolinite  have  not  been 
assigned;  however,  Stubican  and  Roy  (Reference  22)  have  suggested  that 
the  544  band  is  a  Si-O-Al  skeletal  vibration. 

Four  well-resolved  bands  are  observed  in  the  FT-IR  spectrum  of  kao¬ 
linite  in  the  hydroxyl  stretching  region  at  3620,  3652,  3669,  and  3694 
cm  ^  (Figure  28).  For  comparison,  the  Raman  spectra  of  KGa-1  kaolinite 
in  the  3600  to  3725  cm-1  regions  are  presented  in  Figure  29-31.  The 
FT-IR  spectrum  (Figure  28)  and  the  Raman  spectra  (Figure  31)  of  the  KGa-1 
kaolinite  sample  are  similar.  The  Raman  spectra  of  the  Mesa  Alta 
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Figure  29.  Raman  Spectra  of  KGa- 1  Kaolinite  in  Aqueous  Suspension  (A) 
Dry  KGa-1  Kaolinite ^ (L; ,  and  Dry  Mesa  Alta  Kaolinte  (C)  in 
the  100  to  1000  cm  1  Region. 


Figure  30.  Raman  Spectra  of  KGa-1  Kaolinite  in  Aqueous  Suspension  (A), 
Dry  KGa-1  Kaolinite  (B) ,  Dry  Mesa  Alta  Kaolinite  (C)  m  the 
100  to  2000  cm-1  Region. 
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kaolinite  sample  are  similar.  The  Raman  spectrum  of  the  Mesa  Alta  kao- 
linite  sample,  however,  shown  at  the  top  of  Figure  31,  has  a  fifth 
hydroxyl  stretching  band  which  is  Raman-active  spectrum  but  not  in  the 
IR-active  (Reference  10)  .  The  observation  of  five  Raman  0-H  stretching 
bands  was  first  reported  by  Wiewora  et  al  (Reference  23)  for  a  Keokuk 
kaolinite  sample. 

Band  positions  obtained  from  the  CE-TR  spectrum  (Figures  26-28)  are 

shown  in  Table  13  and  are  in  good  agreement  with  the  dispersive-IR  and 

Raman  literature  values  for  kaolinite  (Reference  9).  For  comparison,  the 

—  1 

Raman  spectra  of  KGa-1  kaolinite  in  the  3600  to  3725  cm  i,  100  to  1000 
cm  ^ ,  and  200  to  1000  cm-1  regions  are  shown  in  Figures  29,  30.  There  is 
a  strong  correspondence  between  the  Raman  and  IR  spectra  of  kaolinite  in 
the  hydroxyl  stretching  region  (Figure  31).  What  is  not  apparent  from 
this  comparison,  however,  were  the  large  differences  in  scan  collections 
times;  for  a  110  cm  ^  resolution  Raman  scan  of  kaolinite  using  a  typical 
dwell  time  of  5  sec  step  ^  in  the  100  to  4000  cm  ^  region  would  require. 
325  minutes  (5.5  hours)  of  sample  collection  time.  In  contrast,  a  compa¬ 
rable  SNR  could  be  obtained  in  approximately  1  minute  using  CE-TR  FT-IR. 
Thus,  CE-TR  FT-IR  methods  are  characterized  by  a  much  higher  sensitivity 
than  Raman  techniques  for  studies  of  clay  minerals.  In  the  hydroxyl 
stretching  region  of  kaolinite,  CE-TR  provides  a  considerable  advantage 
over  Raman  methods  considering  the  similarity  of  the  spectra  in  this 
region  and  the  much  longer  scan  times  required  for  Raman  spectra.  In 
contrast  to  the  good  overall  agreement  between  the  Raman  and  CE-TR 

spectra  in  the  hydroxyl  stretching  region,  there  is  poor  correspondence 
between  the  spectral  band  positions  and  relative  intensities  of  the  Raman 
(Figures  29,  30)  and  CE-TR  (Figure  27)  spectra  in  the  low  frequency 

region.  Thus,  a  more  complete  characterization  of  the  lower  frequency 

vibrational  modes  of  kaolinite  is  obtained  using  a  combined  application 
Raman  and  FT-IR  methods  (Reference  22) . 
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The  crystal  structure  cf  kaolinite  projected  onto  the  (100)  plane  is 
shown  in  Figure  32.  This  drawing  illustrates  the  two  distinct  types  of 
hydroxyl  groups  that  reside  within  the  crystal  structure  of  kaolinite; 
the  inner  hydroxyl  "sandwiched"  between  the  octahedral  and  tetrahedral 
layers  of  the  clay  lattice,  and  the  inner-surface  hydroxyl  groups  located 
on  internal  surface  of  the  "gibbsite-like"  Aluminum  octahedral  layer. 
The  3620  cm  ^  band  has  been  conclusively  assigned  to  the  inner  hydroxyl 
group  of  kaolinite.  This  hydroxyl  group  is  highly  resistant  to  isotopic 
exchange  with  deuterium  and  to  dehydroxylation  at  elevated  temperatures 
relative  to  the  other  hydroxyl  stretching  bands  because  of  its  recessed 
location  with  the  kaolinite  structure. 

H.  LOW  TEMPERATURE  FT-IR  STUDIES  OF  KGa-1  KAOLINITE2 

One  of  the  objectives  of  the  research  effort  was  to  obtain  low  tem¬ 
perature  FT-IR  spectra  of  the  kaolinite-hydrazine  complex.  Low  tempera¬ 
ture  FT-IR  spectra  of  kaolinite,  or  any  other  clay  mineral,  have  not  been 
reported  in  the  literature.  Consequently,  FT-IR  spectra  of  kaolinite 
were  obtained  as  a  function  of  temperature  to  assist  in  assigning  low 
temperature  features  of  the  kaolinite-hydrazine  FT-IR  spectrum.  The 
lower  frequency  bands  of  kaolinite  in  the  600  to  1200  cm  *  region  are 
presented  in  Figure  33  as  a  function  of  temperature.  A  scatter  plot  of 
the  relative  shift  of  the  low  frequency  bands  relative  to  the  root  tem¬ 
perature  frequency  positions  is  presented  in  Figure  34.  In  general,  only 
a  minor  increase  in  frequency  is  observed  for  the  lower  frequency  bands. 
The  observed  increase  in  frequency  upon  cooling  is  related  to  the  thermal 
contraction  of  the  unit  cell  of  kaolinite.  Figure  35  shows  the  relative 
frequency  response  of  the  A1-0-H  deformation  models  as  a  function  of  tem¬ 
perature.  The  shift  in  frequency  of  the  915  cm  ^  band  as  a  function  of 
temperature  is  generally  the  same  as  that  observed  for  the  other  low  fre¬ 
quency  modes;  the  frequency  of  the  band  increases  upon  cooling  resulting 
from  the  temperature  induced  contraction  of  the  clay  lattice.  The  behav¬ 
ior  of  the  940  cm  ^  band  is  unique,  however,  in  that  the  observed  fre¬ 
quency  does  not  increase  at  lower  temperatures. 
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Figure  32. 


Crystal  Structure  of  Kaolinite  Projected  onto  the  [100]  Plant 
Showing  the  Location  of  the  Inner  and  Inner-surface  Hydroxyl 
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Figure  33.  Temperature  Dependence  of  the  FT-IR  Absorbance  Spectra  of 
KGa-1  Kaolinite  in  the  600  to  1200  cm  Region. 
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The  temperature  dependence  of  the  IR-active  hydroxyl  stretching 
bands  is  shown  in  Figure  36.  The  bank  positions  of  the  observed  bands 
are  presented  in  Table  14  as  a  function  of  temperature.  Prost  (Reference 
24)  reported  the  IR  spectrum  of  kaolinite  cooled  to  150  K  recently.  The 
spectra  reported  in  Figure  36  represent  the  first  reported  FT-IR  spectra 
of  kaolinite  cooled  to  near  liquid  helium  temperatures.  One  of  the  main 
advantages  in  vibrational  spectroscopy  of  cooling  samples  is  that  the 
natural  linewidths  associated  with  vibrational  transitions  are  tem¬ 
perature-dependent;  i.e.,  thus,  greater  resolution  of  vibrational  struc¬ 
ture  is  often  realized  at  lower  temperatures.  The  low  temperature  spec¬ 
trum  of  kaolinite  obtained  at  10  K  shows  clearly  the  presence  of  several 
"new"  vibrational  features  which  are  not  present  or  resolved  at  room  tem¬ 
perature.  These  "new"  low-temperature  features  of  the  kaolinite  spectrum 
have  not  been  assigned  as  yet;  however,  the  data  presented  in  Figure  36 
do  show  that  increased  resolution  of  the  hydroxyl  stretching  bands  of 
kaolinite  is  realized  at  near  liquid  helium  temperatures. 

Figure  37  presents  the  temperature  dependence  of  the  hydroxyl 
stretch  bands  and  Figure  38  shows  the  relative  shift  in  frequency  of 
these  bands  compared  to  the  room  temperature  band  position.  The  observed 
shifts  are  in  agreement  with  the  direction  and  magnitude  of  the  shifts 
reported  in  the  literature  (References  24-25)  .  No  explanation  has  been 
provided,  as  yet,  to  account  for  the  blue  shift  of  the  3620  cm  ^  band  and 
the  observed  red  shift  of  the  inner-surface  hydroxyl  bands.  The  average 
net  increase  in  frequency  of  the  inner-surface  hydroxyl  groups  observed 
upon  cooling  from  300  K  to  10  K  is  13  cm  * ;  in  contrast,  the  frequency  of 
the  3620  cm  ^  band  was  observed  to  decrease  by  -4  cm  These  observed 
opposite  shifts  of  the  hydroxyl  stretching  bands  may  provide  a  useful 
spectroscopic  method  for  identifying  OH  stretching  bands  in  the  future. 
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Figure  36.  Temperature  Dependence  of  the  FT-IR  Absorbance  Spectra  of 
KGa-1  Kaolinite  in  the  3550  to  3750  cm  Region. 
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Figure  37.  Plot  of  the  Band  Positions  of  the  IR-active  Hydroxyl 
Stretching  Bands  as  a  Function  of  Temperature. 
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TABLE  14.  BAND  POSITIONS  OF  KGa-1  KAOLINTE  AT  300  K, 


250  K,  200  K, 

150  K,  50 

K  AND  10 

K. 

606.0 

604.3 

603.9 

605.9 

607.5 

608.1 

607.4 

643.4 

645.8 

646.8 

647.7 

647.8 

649.0 

648.4 

690.  1 

693.5 

693.  1 

694.8 

694.4 

649.7 

695.8 

753.0 

753.9 

754.6 

754.4 

754.4 

754.7 

754.4 

787.8 

789.1 

789.3 

788.8 

789.6 

789.6 

788.6 

799.7 

798.1 

799.8 

800.4 

800.0 

801.6 

800.8 

915.3 

916.9 

918.0 

918.4 

918.2 

918.2 

918.3 

939.9 

940. 

939.9 

939.7 

939.6 

939.5 

939.8 

1009.6 

1011.6 

1011.8 

1013.8 

1014.3 

1014.2 

1014 

i034 . 2 

1036.9 

1037.3 

1036.8 

1039.1 

1038.3 

1039.5 

1117.1 

1118.4 

1118.4 

1118.4 

1118.8 

1118.8 

1119 

3620.1 

3618.7 

3617.9 

3617.1 

3616.9 

3616.6 

3616.5 

3638.5 

3639.5 

3654.0 

3655.01 

3652.1 

3653.8 

3656.6 

3659.6 

3661.7 

3662.4 

3662.9 

3668.9 

3672.4 

3675.6 

3678.1 

3679.8 

3680.3 

3680.4 

3693.9 

3698.1 

3701.9 

3705.5 

3708.0 

3709.1 

3708.9 

3730.3 

3731.2 
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FT-IR  STUDIES  OF  THE  KAOLINITE- HYRDRAZINE  INTERCALATION  COMPLEX 


Expansion  of  the  kaolinite  lattice  upon  intercalation  by  hydrazine 
is  by  a  plot  of  the  X-ray  diffraction  d  reflections  of  kaolinite  and 
of  the  KH  complex  versus  time  (Figure  39).  As  hydrazine  was  adsorbed  by 
kaolinite,  the  intensity  of  the  non- intercalated  d^^  reflection  at 
12.36°  20  (0.716  nm  spacing)  decreased,  and  a  corresponding  increase  in 
intensity  was  observed  for  the  "new"  KH  d^^  reflection  at  8.60°  20  (1.03 
nm  spacing) .  Assuming  that  the  ratio  of  the  KH  reflection  against  the 
kaolinite  d^  reflection  is  directly  proportional  to  the  fraction  of 
kaolinite  intercalated,  these  data  (Figure  39)  indicated  that  after  two 
hours  of  exposure  to  hydrazine  more  than  90  percent  of  the  kaolinite  was 
intercalated  by  hydrazine.  The  sharp  decrease  in  intensity  of  the  non- 
intercalated  d  reflection  (Figure  39),  however,  may  indicate  that  the 
intercalation  process  reached  completion  after  only  30  minutes.  X-ray 
diffraction  (XRD)  patterns  showing  the  d  reflections  of  kaolinite  and 
of  the  kaolinite-hydrazine  (KH)  intercalate  are  presented  in  Figure  40. 
Upon  expansion  of  the  kaolinite  lattice  by  hydrazine,  the  interlamellar 
spacing  increased  from  0.716  nm  to  1.030  nm,  an  increase  of  0.314  nm. 
This  increase  indicated  that  one  molecular  layer  of  hydrazine  was 
adsorbed  between  each  structural  1:1  layer  of  the  clay  lattice.  By  com¬ 
parison  to  the  other  d^^  reflections,  the  well-defined,  relatively  sharp 
8.60°  20  reflection  in  the  XRD  pattern  of  the  KH  complex  obtained  at  1 
atmosphere  of  pressure  (labeled  "K:H  air"  in  Figure  40),  indicated  that 
the  KH  complex  was  fairly  well  ordered  under  these  conditions  and  that 
very  little  nonintercalated  kaolinite  remained  after  intercalation. 
These  XRD  results  are  in  good  agreement  with  those  of  Ledoux  and  White 
(Reference  26)  who  reported  a  d^^^  spacing  of  1.040  nm  for  the  KH  complex 
at  25°  C  and  1  atm.  Space  filled  drawings  of  the  expanded  kaolinite 
crystal  structure  (dgQ^  =  1.030  nm)  and  of  hydrazine  (Figure  41)  illus¬ 
trate  the  approximate  amount  of  space  available  for  the  intercalate  in 
the  interlamellar  region  and  the  corresponding  dimensions  of  the  hydra¬ 
zine  molecule. 

Raman  spectra  in  the  3600  to  3725  cm  ^  region  of  kaolinite  (top)  , 
and  of  a  KH  complex  at  760  torr  (bottom),  are  shown  in  Figure  42.  The 
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Figure  40. 


X-ray  Diffraction  Patterns  of  nonintercalated  Kaolinite 
(top)  and  of  the  Kaolinite-Hydrazine  Intercalation  Complex  at 
760  Torr  (bottom) . 


Figure  41.  [010]  Projection  of  the  Expanded  Kaolinite  Structure  after 

Expansion  of  Lattic  by  Hydrazine  to  a  1.03  run  dOOl  Spacing 
A  Hydrazine  Molecule  Drawn  to  the  Same  Scale  Using  van  der 
Waals  Radii  is  Shown  on  the  Right. 
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Raman  Spectra  in  the  3600  to  3735  cm  1  Region  of  KH  Complex 
at  760  Torr  (bottom) ,  and  a-of  a  Dry  Nonintercalated  Mesa 
Alta  Kaolinite  Sample  (top). 
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3620  cm  band  was  not  perturbed  upon  intercalation  under  these  condi¬ 
tions.  In  contrast,  the  intensities  of  the  hydroxyl  stretching  bands  at 
3652,  3668,  and  3694  cm  ^  bands  of  kaolinite  (Figure  43a)  were  reduced  in 
intensity  upon  intercalation  (Figure  43b-c),  and  the  3620  cm  ^  band  was 
not  affected.  These  results  are  in  agreement  with  a  previous  1R  study  of 
the  KH  complex  (Reference  26) . 

The  molecular  structure  of  kaolinite  projected  along  the  [100]  face 
(looking  along  the  x-axis  with  the  z-axis  pointing  up)  is  shown  in  Figure 
32.  The  ball-and-stick  drawing  shown  on  the  left  illustrates  the  two 
distinct  types  of  hydroxyl  groups  that  reside  within  the  crystal 
structure  of  kaolinite:  the  inner  hydroxyl  "sandwiched"  between  the 
Al-octahedral  and  Sitetrahedral  layers  of  the  clay  lattice,  and  the 
inner-surface  hydroxyl  groups  located  on  the  basal  plane  of  the 
Al-octahedral  layer.  Numerous  infrared  studies  of  kaolinite  (References 
10,  18-24)  are  in  agreement  that  the  3620  cm  *  band  is  assigned  to  the 
inner  hydroxyl  group  (Figure  32),  and  that  this  hydroxyl  group  -  has  a 
considerably  greater  resistance  to  isotopic  exchange  with  deuterium  ar.d 
to  dehydroxylation  at  elevated  temperatures  in  comparison  to  the  labile 
inner-surface  hydroxyl  bands  at  3652,  3669,  and  3690-5  cm 

FT-IR  spectra  of  the  KH  complex  in  the  3550  to  3750  cm  *  region  are 
shown  in  Figure  44  at  1  atm  of  pressure  and  at  several  reduced  pressure 
values.  As  the  KH  complex  is  exposed  to  a  reduced  pressure,  a  new, 
higher-frequency  band  appeared  at  3628  cm  ^  and  increased  in  intensity  at 
the  expense  of  the  3620  cm  *  band.  Insofar  as  these  authors  are  aware,  a 
similar  shift  in  frequency  of  the  inner-hydroxyl  stretching  band  induced 
by  a  guest  intercalate  has  not  been  reported  previously  in  the  litera¬ 
ture.  There  is  little  doubt  because  of  the  strong  intensity  borrowing 
between  the  two  bands.  The  presence  of  two  discrete  inner-hydroxyl 
stretching  bands  suggests  strongly  that  a  different  structural  conforma¬ 
tion  of  the  intercalation  complex  was  induced  upon  decreasing  the  pres¬ 
sure.  A  similar  result  was  not  observed  in  the  Raman  spectra  of  the  KH 
complex  because  the  sample  was  studied  at  1  atm  of  pressure. 

To  confirm  this  hypothesis,  XRD  patterns  of  the  evacuated  complex 
were  obtained  at  reduced  pressure  values  (Figure  45).  The  d^^  reflec¬ 
tion  of  the  KH  intercalation  complex  was  observed  to  increase  from  its 
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Figure  45.  X-ray  Diffraction  Patterns  Showing  the  dfOOl]  Reflection  of 
the  Kaolinite-Hydrazine  Complex  at  760  Torr,  0.001  Torr,  and 
0.00001  Torr. 
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values  of  8.60°2©  at  1  atm  to  9.2C20,  which  corresponded  to  a  decrease  in 
the  interlamellar  spacing  from  1.030  run  (760  torr)  to  0.960  nm  (0.00001 
torr) .  Thus,  the  interlamellar  spacing  of  the  intercalation  complex 
decreased  by  0.07  nm  upon  evacuation,  which  decreased  the  available  space 
for  the  guest  species  from  0.314  nm  to  .244  nm.  This  observed  decrease 
in  the  interlamellar  spacing  of  the  KH  complex  provided  conclusive  evi¬ 
dence  that  a  structural  change  of  the  KH  complex  did  occur  upon 
evacuation.  This  change  was  also  reflected  by  the  novel  blue-shift  of 
the  inner-hydroxyl  stretching  band  from  3620  to  3628  cm  *  which  indicated 
that  the  -NH„  moiety  of  the  guest  hydrazine  species  was  brought  into 
close  contact  with  the  inner-hydroxyl  group  after  evacuation. 

As  the  [100]  ball  and  stick  projection  of  kaolinite  illustrates 
(Figure  32),  the  inner-hydroxyl  group  resides  between  the  silica  tetra¬ 
hedral  and  aluminum  octahedral  layers  and  is  not  accessible  by  most 
intercalated  species  in  the  interlammellar  region.  The  fact  that  hydra¬ 
zine  perturbed  the  stretching  frequency  of  the  inner  hydroxyl  group  sug¬ 
gested  strongly  that  the  -NH^  moiety  keyed  into  the  kaolinite  surface 

resulting  in  a  slight  electrastatic  repulsion  between  the  ~NH0  and  -OH 

-1  1 

groups  responsible  for  the  8  cm  blue  shift.  Considering  the  molecular 
structure  of  kaolinite,  the  inner-hydroxyl  group  can  only  be  approached 
by  a  guest  molecule  small  enough  to  penetrate  through  the  siloxane  ditri- 
gonal  cavity.  A  space-filled  [001]  projection  of  the  kaolinite  structure 
showing  the  siloxane  ditrigonal  cavity  and  the  molecular  structure  of 
hydrazine  drawn  to  the  same  scale  (Figure  46)  illustrates  qualitatively 
that  the  -NH^  moiety  is  small  enough  to  "fit"  into  the  cavity. 

J.  CONCLUSION 

In  conclusion,  the  Raman  and  FT-IR  spectra  of  the  KH  complex  in  the 
hydroxyl  stretching  region  are  in  agreement  in  that  both  methods  show  a 
strong  reduction  in  intensity  of  the  inner-surface  hydroxyl  groups  upon 
intercalation  resulting  from  the  formation  of  hydrogen  bonds  between  the 
inner-surface  hydroxyl  groups  of  kaolinite  and  the  interamellar  hydrazine 
species.  XRD  patterns  of  the  KH  complex  indicated  that  the  interlamellar 
region  increased  in  size  by  0.314  nm  at  1  atm  of  pressure  to  accommodate 
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Kaolinite  [010] 


Kaolinite  Siloxane  Ditrigonal  Cavity.  A  Hydrazine  Molecule  Drawn  to 
s  is  Shown  on  the  Right. 


Che  guest  intercalate.  As  the  pressure  was  reduced,  however,  this  value 
decreased  to  0.244  nm  and  the  FT-IR  spectra  of  the  reduced  pressure  KH 
complexes  showed  clearly  the  presence  of  a  new,  higher  frequency  inner- 
hydroxyl  stretching  band  at  3628  cm  These  results  indicated  that  a 
structural  change  of  the  KH  complex  occurred  at  a  reduced  pressure,  and 
that  the  -NH„  moiety  of  hydrazine  was  brought  into  close  contact  with  the 
innerhydroxyl  group  through  the  siloxane  ditrigonal  cavity.  In  addition, 
it  was  shown  that  the  Raman-and  IR-active  hydroxyl  stretching  modes  of 
kaolinite  were  sensitive  probes  of  the  interaction  between  hydrazine 
molecules  and  the  kaolinite  surface. 


93 


SECTION  IV 


THE  SOIL  MICROBIOLOGY  OF  HYDRAZINE  AND  MONOMETHYLHYDRAZ INE 

A.  INTRODUCTION 


Hydrazine,  MMH  and  UDMH  are  toxic  to  many  forms  of  bacteria.  The 
activities  of  the  autotrophic  nitrifiers  Nitrosomonas  and  Nitrobacter , 
dentrifying  bacteria,  and  anaerobic  methanogens  were  inhibited  by  these 
chemicals  (Reference  27).  In  addition,  the  three  chemicals  prolonged  the 
lag  phase  of  growth  as  well  as  inhibited  growth  of  the  soil  bacterium 
Enterobacter  cloacae  (References  28-30).  Kane  and  Williamson  (Reference 
27)  reported  that  among  the  three  hydrazines,  MMH  was  the  most  toxic  to 
bacteria. 

Despite  hydrazine  toxicity  to  bacteria,  Kane  and  Williamson 
(Reference  27)  demonstrated  that  hydrazine  in  small  quantities  was 
cometabolically  degraded  to  nitrogen  gas  by  Nirobacter .  An  enzyme  system 
of  nitrogen-fixing  heterotrophic  bacteria  was  able  to  convert  hydrazine 
to  ammonia  (Reference  31).  However,  it  was  not  clear  that  the  bacteria 
could  utilize  hydrazine  as  a  sole  source  of  nitrogen  for  growth. 

Hydrazine  when  present  in  natural  waters  (river,  lake  and  pond)  in 
small  quantities,  was  not  stable  (Reference  4). 

Information  concerning  the  degradation  of  hydrazine  and  MMH  and  the 
effect  of  the  chemicals  on  microbial  activity  in  soils  is  not  available. 
Accidental  spills  to  soil  can  occur  during  transportation  and  storage. 
Therefore,  this  study  was  initiated  to  determine  degradation  rates  of 
hydrazine  and  MMH  in  soil  and  their  effect  on  soil  microbial  activity. 
In  addition,  we  isolated  bacteria  capable  of  degrading  hydrazine  and  MMH 
from  soil,  and  used  the  isolates  to  enhance  degradation  in  soil  and  water 
samples  contaminated  with  hydrazine  or  MMH. 

B.  MATERIALS  AND  METHODS 

Hydrazine  sulfate,  hydrazine  monohydrate  and  MMH  were  purchased  from 
Aldrich  Chemical  Company  (Milwaukee,  WI).  Hydrazine  sulfate  was  used  in 
all  experiments  unless  otherwise  specified.  Uniformly  labeled 
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N-hydrazine  sulfate  was  obtained  from  Icon  (Summit,  NJ)  ,  with  the 
chemical  consisting  of  98  atom  percent  of  ^N. 

Arredondo  fine  sand  (Grossarenic  Paleudult)  was  used  for  this  study. 
The  soil,  which  had  never  been  exposed  to  hydrazine  and  MMH,  was  air- 
dried  and  sieved  to  pass  a  2-mm  sieve.  The  sample  had  a  pH  of  5.7,  and 
1.7  percent  of  organic  carbon. 

Two  hundred  grams  of  soil  (oven-dry  weight  basis)  were  placed  in  500 
mL  glass  bottles  or  flasks,  and  16  mL  of  distilled  water  were  added. 
Appropriate  amounts  of  hydrazine  sulfate  were  added  to  give  hydrazine 
concentrations  of  0,  2.5,  10,  25,  100,  125,  250,  and  500  pg/g,  or  MMH 
concentrations  of  0,  10,  50,  100,  and  500  Pg/g.  After  mixing,  the  bot¬ 
tles  were  weighed  and  incubated  at  2 5°C.  For  determination  of  hydrazine 
and  MMH  residues,  as  well  as  bacterial  and  fungal  populations  in  the 
soil,  10  grams  of  soil  samples  were  removed.  For  determination  of 
nitrate  and  ammonia,  15  grams  of  samples  were  removed.  Once  a  week  the 
weights  of  the  soil  samples  were  checked,  and  distilled  water  was  added 
to  compensate  any  water  loss. 

Hydrazine  was  determined  by  the  colorimetric  method  of  Watt  and 
Chrisp  (Reference  32) .  Plastic  centrifuge  tubes  containing  10  grams  soil 
samples  were  deoxygenated  by  flushing  with  a  stream  of  N^,  and  the  sam¬ 
ples  were  extracted  three  times  with  20  mL  of  deoxygenated  0.1M  NaCl. 
0.1  to  1  mL  aliquots  were  transferred  to  10  mL  of  the  color-developing 
agent,  p-dimethylaminobenzaldehyde ,  and  the  resulting  mixtures  were 
diluted  to  25  mL  by  adding  1  M  HC1.  Specific-ion  electrodes  were 
employed  to  determine  NH^  and  NO^  in  the  soil.  After  mixing  with  0.1  g 
of  calcium  sulfate,  15  grams  soil  samples  were  extracted  with  45  mL  of 
distilled  water.  Twenty  and  10  mL  aliquots  were  used  for  determination  of 
NO^  and  NH+,  respectively. 

MMH  was  determined  by  the  colorimetric  method  of  Reynolds  and  Thomas 
(Reference  33).  Briefly,  10  grams  of  soil  were  placed  in  plastic  centri¬ 
fuge  tubes  and  extracted  three  times  with  20  mL  of  cold  and  deoxgenated 
0.1M  HC1.  0.01  to  1.0  mL  of  the  extracts  were  transferred  to  4  mL  of  101 
trichloroacetic  acid  and  adequate  amounts  of  deionized  water  were  added 
to  give  a  final  volume  of  5  mL.  Four  mL  of  each  mixture  were  mixed  with 
5  mL  of  the  color-reagent,  p-dimethylaminobenzaldehyde.  After  30 
minutes,  optical  densities  of  the  resultant  mixtures  were  read  at  485  nm. 
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14 

In  addition,  unif ormly-labeled  C-MMH,  along  with  unlabeled  MMH, 

were  also  used  for  determination  of  disappearance  and  mineralization  of 
14 

MMH  in  soil.  C-MMH  was  purchased  from  Amersham  Corporation  (Arlington 

Heights,  IL)  and  had  a  specific  activity  of  6  UCi/mmol  and  98%  radio- 
14  14 

purity.  C09  trapped  in  KOH  and  C-activity  in  the  HC1  extracts  were 

14 

determined  by  scintillation  counting.  C-activity  remaining  in  the 

14 

extracted  soil  was  determined  by  combusting  to  C00  in  a  Packard  Tri- 

Carb  sample  oxidizer  as  described  previously  by  Ou  et  al.  (Reference  34). 
14 

The  evolved  CO^  was  trapped  in  a  scintillation  cocktail  containing  an 
organic  amine,  and  counted  by  scintillation  counting.  All  soil  samples 
had  been  incubated  at  25°C. 

Dilution-plate  count  methods  as  described  by  Ou  et  al.  (Reference 
35)  were  used  to  determine  bacterial  and  fungal  populations  in  the  soil 
samples.  Carbon  dioxide  which  evolved  from  the  samples  in  closed  glass 
bottles  was  trapped  in  KOH  and  determined  by  titration  (Reference  36)  . 
All  experiments  were  duplicated,  with  the  exception  of  the  soil 
respiration  experiment,  which  was  done  in  triplicate. 

Basal  mineral  medium  consisted  of  (per  liter  of  distilled  water)  4.8 
g  of  K2HP04>  1.2  g  of  KH2P04,  1  g  of  NH4N03>  0.25  g  of  MgSO^^O,  0.04  g 
of  CaCl2,  and  0.001  g  of  Fe2(S04)3.  Glucose,  0.2  g/mL,  and  hydrazine 
sulfate,  0.01  g/mL,  were  sterilized  separately  by  autoclaving  and  filtra¬ 
tion,  respectively.  For  maintenance  of  bacterial  cultures,  10  mL  of  the 
glucose  and  10  mL  of  the  hydrazine  were  added  to  1  L  of  the  basal  mineral 
medium.  Tryptic  soy  agar  and  broth  (Difico)  were  also  used  for  purifica¬ 
tion  and  maintenance  of  bacterial  cultures. 

One  hundred  grams  of  Arredondo  fine  sand  (Grossarenic  Paleudult) 
were  repeatedly  treated  with  100  Ug/g  of  hydrazine.  This  soil  had  pre¬ 
viously  been  shown  to  readily  degrade  hydrazine  at  100  Pg/g  (Reference  3) 
After  four  applications,  10  grams  of  the  soil  were  transferred  to  a 
culture  tube  containing  10  mL  sterile  distilled  water.  After  the  tube 
was  briefly  shaken,  0.3  mL  aliquots  of  the  suspension  were  spread  on 
OT^NO^-free  basal  mineral  agar  plates  supplemented  with  glucose  and 
hydrazine.  The  plates  were  incubated  at  25  C°  for  observation  of  the 
development  of  bacterial  and  fungal  colonies.  Bacterial  and  fungal 
colonies  of  different  appearance  were  further  transferred  to  new  plates. 

The  bacterial  isolates  were  also  transferred  to  tryptic  soy  agar  plates 
for  purification. 
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Growth  of  bacterial  cultures  was  determined  turbidimetrically  at  550 
run  with  a  Spectronic  20  spectrophotometer. 

Eighteen-h  old  cultures  were  harvested  by  centrifugation  at  20,000xg 

for  15  min  at  4°C,  washed  once  with  potassium  phosphate  buffer  (K.HPO, , 

2  4 

4.8  g/L  and  KH„P0  ,  1.2  g/L) ,  and  resuspended  in  the  same  buffer. 
i.  4 

Frozen  cells  (3  g)  were  suspended  in  6  mL  of  the  potassium  phosphate 
buffer.  The  suspension  was  irradiated  with  ultrasonic  waves  for  9  min¬ 
utes  with  an  ultrasonic  cell  disruptor  (Sonified  W140,  Heat  Svstems- 
Ultrasonic),  using  a  titanium  probe  at  20,000  Hz  and  2  amperes.  The 
resulting  suspension  was  centrifuged  at  30,000xg  for  30  minutes.  The 
clear  supernatant  was  used  as  a  source  of  crude  cell  extracts.  Protein 
concentration  in  cell  extracts  was  determined  by  the  method  of  Bradford 
(Reference  37),  using  bovine  serum  albumin  as  the  standard. 

Hydrazine  was  colorimetrically  determined  using  the  method  of  Watt 
and  Chrisp  (Reference  32).  0.01-0.2  mL  of  supernatants  from  cell  cul¬ 
tures,  cell  suspensions,  or  cell  extracts  was  transferred  to  25  mL  of 
volumetric  flasks  which  had  contained  10  mL  of  color-developing  agent, 
p-dimethylaminobenzaldehyde ,  and  sufficient  1  M  HC1  was  added  to  make  a 
total  volume  of  25  mL.  Optical  densities  of  the  samples  were  determined 
at  458  nm  using  a  Spectronic  20  spectrophotometer. 

Ammonia  concentrations  in  cell  suspensions  were  determined  by  a 
specific  ammonia  electrode  as  described  previously  by  Ou  and  Street 
(Reference  3) . 

Nitrate  concentrations  in  cell  suspensions  were  determined  by  a 
nitrate-specific  electrode.  Nitrate  concentrations  in  cell  suspensions 
were  determined  colorimetrically  at  520  nm,  using  the  method  of  Barnes 
and  Folkard  (Reference  38) . 

gas,  which  was  produced  in  cell  suspensions  treated  with  N- 
hydrazine  sulfate,  was  determined  by  mass  spectometry.  6  ml  aliquots  of 
cell  suspension  were  placed  in  20  mL  glass  serum  bottles  which  contained 
0.6  or  0.9  mg  of  ^N-hydrazine .  0.2  mL  of  air  in  the  headspace  was  with¬ 
drawn  for  mass  spectral  analysis. 

A  strain  of  Achromobacter  sp.  and  a  strain  of  Pseudomonas  sp.,  which 
had  the  capacity  to  degrade  hydrazine  in  the  presence  of  a  second  nitro¬ 
gen  source  such  as  ammonium  nitrate,  were  used  for  studing  the 
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enhancement  of  hydrazine  and  MMH  degradation  in  contaminated  soil  and 

water.  Both  bacteria  were  isolated  from  Arredondo  fine  sand.  The 

bacteria  were  maintained,  as  described  by  Ou  (Refernce  39)  in  a  basal 

mineral  medium  containing  10  Ug/g  of  MMH  or  100  ug/g  of  hydrazine. 

MMH  in  culture  fluids  and  cell  suspensions  was  determined  by  the 

colorimetric  method  of  Reynolds  and  Thomas  (Reference  33).  In  addition, 
14 

C-MMH  was  used  for  determination  of  MMH  disappearance  and  formation  of 
14 

metabolites.  C-activity  in  culture  fluids  was  determined  by  scintilla- 

14 

tion  counting.  C-metabolites  were  determined  by  organic-solvent 

extraction,  thin-laver  chromatography  (TLC)-autoradiography ,  and  scin- 

14 

tillation  counting  (Refernce  34).  C-activity  in  culture  fluids  was 

determined  by  extracting  w’ith  an  equal  volume  of  chloroform  and  ethyl 

ether.  The  organic  extracts,  after  removing  moisture  with  anhydrous 

sodium  sulfate,  were  concentrated  to  1. 5-2.0  mL  in  a  stream  of  N„  gas. 

Aliquots  (10  to  20  yL)  of  the  extracts  were  spotted  on  commercial  silica 

gel  G  plates.  The  TLC  developing-solvent  system  was  hexane-chlorcf crm- 

methanol  (7:2:1,  v/v) .  Radioactive  areas  on  each  plates  were  detected  by 

placing  Kodak  SB-5  X-ray  films  on  the  plates.  The  radioactive  areas  on 

the  plates  were  scraped,  transferred  to  scintillation  vials,  and 

quantified  by  scintillation  counting. 

14 

CO.,  which  evolved  from  growing  cultures  in  glass  Erlenmeyer 
^  14 

flasks  containing  C-MMH,  was  trapped  in  small  stainless  steel  vials 

containing  1  gram  of  KOH  pellets.  The  vials  were  hung  under  the  rubber 

stoppers  in  the  flasks  using  stainless  steel  wire.  The  flasks  were  then 

tightly  closed  with  the  stoppers.  After  removing  the  KOH  from  the  flasks 

14 

it  was  diluted  with  water  to  4  mL,  and  C-activity  in  the  KOH  solutions 
was  determined  by  scintillation  counting. 

Growth  of  bacterial  cultures  was  determined  turbidimetrically  at  550 
nm  with  a  Spectron  20  spectrophotometer. 

Sixteen-  to  20-hour-old  cultures  were  harvested  by  centrifugation  in 
the  cold,  washed  once  with  cold  phosphate  buffer  (pH  7.2),  and  resus¬ 
pended  in  the  same  buffer. 

All  bacterial  cultures  and  suspensions  were  incubated  at  25°C.  All 
experiments  were  carried  out  in  duplicate. 

Two  river  water  samples,  two  lake  wTater  samples,  tap  water,  and  dis¬ 
tilled  water  were  used  in  this  study.  Selected  properties  of  the  waters 
samples  are  shown  in  Table  15. 
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TABLE  15.  SELECTED  PROPERTIES  OF  THE  SIX  WATERS  USED  IN 
THIS  STUDY. 


Water 

Cu 

(Ug/mL) 

Fe 

(Ug/mL) 

Bacteria 
(cfu/mL) 
X10  J 

Fungi 

(cfu/mL) 

pH 

Suspended 

solid 

(rag/mL) 

Santa  Fe  River 

0.04 

0.04 

206 

4 

7.7 

3 

Prairie  Creek 

0.01 

0.24 

1 

3 

6.6 

3 

Lake  Alice 

0.20 

0 

25 

o  ? 

L. 

7.4 

3 

Newmans  Lake 

0 

0.28 

9 

9 

7.7 

3 

Tap  water 

0 

0 

0 

0 

8.5 

3 

Dist.  Water 

0 

0 

0 

0 

6.4 

0 

Achromobacter  sp.  was  maintained  in  a  basal  mineral  medium  contain¬ 
ing  hydrazine  sulfate  and  glucose  as  described  by  Ou  (Reference  39) .  30 
mL  of  18  hour-old  bacterial  culture  was  centrifuged  at  20,000xg  for  20 
minutes.  The  cell  pellets  were  suspended  in  5  mL  of  water.  After  adding 
an  appropriate  amount  of  sterile  aqueous  hydrazine  (0.04  -  0.2  mL)  ,  the 
samples  were  incubated  at  25°C  for  2  hours. 

The  aqueous  hydrazine  (250  or  2500  Ug/mL)  was  sterilized  by  filtra¬ 
tion  through  a  0.22  Um  filter,  and  then  stored  in  the  dark  at  4°C.  Under 
this  condition,  the  hydrazine  solution  was  stable  for  more  than  a  month. 
In  addition,  autoclaved  bacterial  cells  were  tested  for  their  capacity  to 
degrade  hydrazine  in  autoclaved  and  filtered  water  samples.  Hydrazine 
sulfate  was  used  for  all  experiments,  unless  otherwise  specified. 

Water  samples  (5  mL)  were  buffered  with  phosphates  (0.024  g  of 
K^HPO^  and  0.024  g  of  KH^PO^).  Eighteen  hour-old  bacterial  cells  were 
suspended  in  the  buffered  waters.  After  hydrazine  had  been  added,  the 
samples  were  incubated  at  25°C  for  2  hours,  after  which  the  cell  suspen¬ 
sions  were  centrifuged  at  20,000xg  for  20  minutes.  0.01  to  0.1  mL  of  the 
supernatant  solutions  was  used  for  determination  of  hydrazine  concentra¬ 
tion  using  the  colorimetric  method  described  earlier  (Reference  32). 
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One  mL  of  Che  18  hour-old  cell  suspension  of  Achromobacter  sp.  (12±1 
mg/'mL)  was  also  added  to  10  grains  of  air-dry  Arredondo  soil  in  a  plastic 
centrifuge  tube,  and  an  appropriate  amount  of  sterile  hydrazine  was  inane - 
diately  added  to  give  hydrazine  concentrations  of  25,  50,  or  100  pg/g  of 
soil.  An  identical  experiment  was  set  up  for  autoclaved  soil.  In  addi¬ 
tion,  the  bacterial  cells  (2.2+0.2  mg/mL)  were  suspended  in  5  mL  of 
either  distilled  water  or  buffered  distilled  water  in  plastic  centrifuge 
tubes  which  contained  0.5  g  of  autoclaved  or  nonautoclaved  Arredondo 
soil.  Appropriate  amounts  of  sterile  hydrazine  (25  and  50  pg/mL)  were 
added  to  each  suspension.  All  samples  were  incubated  at  25°C  for  one 
hour.  After  incubation,  the  soil  suspensions  were  immediately  centri¬ 
fuged  in  the  cold  (4°C)  at  20,000xg  for  15  minutes.  Corresponding  soil 
samples  were  immediately  suspended  in  30  mL  of  cold  0.1  M  N’aCl,  and 
centrifuged  in  the  cold.  Hydrazine  in  each  supernatant  was  determined 
colorimetrically  as  described  earlier. 

C.  RESULTS  AND  DISCUSSION 

1.  Hydrazine 

a.  Degradation  in  Soil 

At  low  concentrations,  hydrazine  disappeared  rapidly  from 
Arredondo  soil.  For  example,  at  10  pg/g,  hydrazine  disappeared  com¬ 
pletely  in  1.5  hours.  Autooxidation  appeared  to  be  the  principal  factor 
contributing  to  the  disappearance  of  the  chemical  from  soil,  as  less  than 
3  percent  of  the  applied  hydrazine  was  recovered  from  sterile  soil.  Even 
at  100  pg/g  hydrazine  disappeared  completely  in  1  day  and,  at  500  pg/g, 
the  chemical  disappeared  completely  in  8  days  (Table  16)  .  Biological 
degradation  was  a  relatively  minor  factor,  although  hydrazine  consis¬ 
tently  disappeared  from  sterile  soil  at  somewhat  slower  rates.  By  com¬ 
paring  the  hydrazine  loss  from  sterile  and  nonsterile  soils,  it  appeared 
that  biological  degradation  was  responsible  for  about  20  percent  of  the 
disappearance . 

Since  hydrazine  is  partly  degraded  biologically  in  this 
soil,  it  is  of  interest  to  determine  if  hydrazine  is  metabolized  to 
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TABLE  16.  HYDRAZINE  IN  STERILE  AND  NONSTERILE  ARREDONDON  SOIL. 


Days 

Hydrazine 

(percent 

remaining) 

100  bg/g 

500  bg/g 

Sterile 

Nonsterile 

Sterile 

Nonsterile 

0.05 

83  +  11 

62±3 

97+3 

93  +  2 

1 

8+0 

0 

71  +  1 

62±2 

2 

0 

0 

52±0 

39±3 

3 

0 

0 

39  +  2 

25±4 

6 

0 

0 

13+1 

3+1 

8 

0 

0 

8+1 

0 

ammonia,  which  can  serve  as  a  nitrogen  source  for  growth.  However,  we 

found  no  evidence  of  hydrazine  being  converted  to  ammonia.  The  levels  of 

NH+  in  Arredondo  soil,  both  with  and  without  treatment  with  hydrazine  at 
4 

100  bg/g,  were  essentially  the  same  following  7  days  of  incubation, 
b.  Microbial  Degradation 

Fungal  colonies  were  found  to  develop  in  the  NH^NO^-free 
basal  mineral  agar  plates  supplemented  with  glucose  and  hydrazine.  How¬ 
ever,  they  either  did  not  grow  or  grew  poorly  in  liquid  basal  mineral 
medium  supplemented  with  hydrazine  and  glucose  with  or  without  NH^NO^. 
The  fungi  were  found  to  have  little  capacity  to  degrade  hydrazine. 
Hence,  they  were  not  used  for  further  investigation.  Bacterial  colonies 
of  small  size  developed  a  few  days  after  fungal  colonies  appeared.  The 
bacteria  all  failed  to  grow  in  liquid  NH^NO^-free  basal  mineral  medium 
supplemented  with  glucose  and  hydrazine.  However,  some  of  the  bacteria 
grew  when  supplemented  with  NH^NO^.  An  Achromobacter  sp.,  a  Bacillus 
sp.,  and  a  Pseudomonas  sp.  were  found  to  have  capacity  to  degrade  hydra¬ 
zine.  Both  Bacillus  sp.  and  Pseudomonas  sp.,  when  grown  in  glucose- 
amended  basal  mineral  medium  containing  hydrazine,  had  a  lag  growth 
period  of  3  to  5  days.  The  cell  suspensions  of  the  two  bacteria  could 
only  degrade  hydrazine  at  concentrations  of  25  bg/hil  and  lower.  The 
Achromobacter  sp.  not  only  had  a  short  lag  growth  period  but  also 
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degraded  hydrazine  at  concentrations  greater  than  100  Mg/ml.  Therefore, 
this  bacterium  was  chosen  for  further  study. 

The  Achromobacter  sp.  in  glucose-amended  basal  mineral 
medium  containing  25  and  51  pg/mL  hydrazine  exhibited  4  and  8  hours  of 
lag  growth  period,  respectively  (Figure  47).  The  bacterial  culture  at 
both  hydrazine  concentrations  reached  maximal  growth  by  48  hours.  Unlike 
the  bacterial  growth,  hydrazine  was  degraded  without  a  lag  period. 
Degradation  had  levelled  off  before  cell  growth  reached  maximized. 

Hydrazine  at  51  Pg/ mL  in  the  glucose-amended  basal  mineral 
medium  in  the  absence  of  the  bacterial  culture  was  much  more  stable  than 
in  the  presence  of  the  culture  (Figure  47).  After  48  hours  of  incubation 
97  percent  of  hydrazine  remained  in  the  culture-free  medium,  whereas  only 
4  percent  of  the  chemical  remained  in  the  culture  medium  during  the  same 
incubation  period.  In  addition,  hydrazine  at  25  pg/mL  was  also  stable  in 
the  culture-free  glucose-amended  basal  mineral  medium.  Hydrazine  was 
also  found  to  be  stable  in  the  basal  mineral  medium,  in  a  glucose  solu¬ 
tion  (0.2  g/mL) ,  and  in  distilled  water. 

Hydrazine,  at  various  concentrations  ranging  from  25  to 
162  pg/ml,  was  used  for  testing  the  degradative  capacity  of  cell  suspen¬ 
sions  of  the  Achromobacter  sp.  which  had  been  grown  in  hydrazine  and 
glucose-amended  basal  mineral  medium.  Table  17  shows  that  hydrazine  at 
initial  concentrations  of  25,  50, and  90  pg/  mL  was  degraded  to  near  com¬ 
pletion  within  2  hours,  and  at  120  and  162  pg/mL  more  than  50  percent  of 
the  chemical  was  degraded.  Hydrazine  in  heated  and  autoclaved  suspen¬ 
sions  was  stable  and,  in  fact,  no  hydrazine  in  the  autoclaved  suspension 
was  degraded  during  2  hours  of  incubation. 

Nitrate,  nitrite  and  ammonia  were  not  formed  in  cell  sus¬ 
pensions  treated  with  hydrazine.  ^^2  ®as  was  ^etecte£*  in  a-‘-r  samples 
from  the  headspace  of  serum  bottles  containing  the  bacterial  cell  suspen¬ 
sion  and  ^N-hydrazine .  ^N-hydrazine  was  not  detected  in  the  air  sam¬ 
ples. 

The  cell  suspension  of  the  Achromobacter  sp.  which  had 
been  grown  in  the  basal  mineral  medium  without  hydrazine  also  had  a  capa¬ 
city  to  degrade  hydrazine  (Table  18).  The  bacterium  grown  in  the  basal 
mineral  medium  with  KNO^  or  (NH^l^SO^  as  a  sole  source  of  nitrogen  also 
degraded  hydrazine.  Furthermore,  bacterial  cells  grown  in  rich  complex 
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Figure  47.  Hydrazine  degradation  and  growth  of  the  Achromobacter  sp. 

Legend:  O  and  ,  absorbance  of  culture  fluids  with 

initial  hydrazine  concentrations  of  25  and  51  yg/  mL, 
respectively;  #  and  ,  hydrazine  concentrations  in 
culture  fluid;  and  Q  ,  hydrazine  concentrations  in  the 
culture-free  glucose-amended  medium. 
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medium  such  as  tryptic  soy  broth  also  had  a  capacity  to  degrade  hydra¬ 
zine. 

The  Achromobacter  sp.  also  degraded  the  nonsalt  form  of 
hydrazine.  It  was  found  that  only  6  percent  of  applied  hydrazine  monohy¬ 
drate  (25  ug/ mL)  remained  in  the  cell  suspension  after  2  hours  of  incuba¬ 
tion.  Autoclaved  cells  lost  their  capacity  to  degrade  hydrazine  monohy¬ 
drate  . 

Crude  cell  extracts  of  the  Achromobacter  sp.  also  had  a 
capacity  to  degrade  hydrazine.  The  specific  activity  of  the  extracts 
toward  the  reduction  of  hdyrazine  was  estimated  to  be  0.30  umol/h/mg 


TABLE  17.  HYDRAZINE  IN  CELL  SUSPENSIONS  OF  THE  ACHROMOBACTER  SP. 
GROWN  IN  BASAL  MINERAL  MEDIUM  CONTAING  HYDRAZINE3 


Cell  suspension 

Initial  N  H 
(ug/ mL; 

Percent  Reduction 
after  2  hours 

T  •  b 

Live 

25 

96 

t  •  b 

Live 

50 

95 

Liveb 

90 

94 

t  •  b 

Live 

104 

84 

r  •  b 

Live 

120 

56 

T  •  b 

Live 

162 

52 

c 

Heated 

50 

4 

Autoclaved*^ 

50 

0 

Cell  suspensions  were  incubated  at  25° C  for  2  hours. 
b  Dry  cell  weight  of  the  suspension  was  3.8  mg/mL. 

C  Cell  suspension  was  heated  in  a  waterbath  at  90°C  for  10  minutes. 
^  Cell  suspension  was  autoclaved  at  121°C  for  15  minutes. 
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TABLE  18.  DEGRADATION  OF  HYDRAZINE  IN  CELL  SUSPENSIONS  OF  THE 
ACHROMOBACTER  SP.  GROWN  IN  MEDIA  WITHOUT  HYDRAZINE3 


Cell  suspension 

Initial  N  H 
(yg/mLJ 

Percent 

after 

Reduction 

2  hours 

Grown  in  glucose  -  amended 
basal  mineral  medium 

42 

94 

Grown  in  glucose  -  amended^ 
basal  in  mineral  medium 

83 

86 

Growm  in  glucose  -  amended 
basal  mineral  medium 

27 

93 

Grown  in  glucose-  amended 
basal  mineral  medium 

27 

97 

Grown  in  trygtic 
soy  broth 

50 

86 

Grown  in  trygtic 
soy  broth 

125 

83 

Cell  suspensions  were  incubated  at  25°C  for  2  hours. 


Cell  dry  weight  3.7  mg/mL.  Nitrogen  source  in  the  basal  mineral 

medium  was  NH, NO. . 

4  3 

Cell  dry  weight  3.6  mg/mL.  Nitrogen  source  in  the  basal  mineral 
was  KNO^. 

Cell  dry  weight  3.8  mg/mL.  Nitrogen  source  in  the  basal  mineral 

was  (NH  ) SO. . 

4  2  4 

Cell  dry  weight  4.0  mg/mL. 
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protein.  Heated  extracts  lost  their  capacity  to  degrade  hydrazine. 
Hydrazine  in  phosphate  buffer  was  not  degraded. 

These  results  suggest  that  the  enzyme  system  for  the  meta¬ 
bolism  of  hydrazine  by  the  Achromobacter  sp.  is  constitutive.  This  is 
evidenced  by  the  fact  that  hydrazine  is  rapidly  degraded  without  a  lag. 
The  failure  of  autoclaved  and  heated  cells,  and  of  heated  cell  extracts, 
to  degrade  the  chemical  indicates  that  degradation  during  short  incuba¬ 
tion  is  principally  microbial.  For  long  incubations,  autooxidation  may 
play  a  role  as  well  (Reference  40).  Under  the  systems  used  in  this 
study,  the  role  of  autooxidation  is  negligible. 

Similar  to  the  growth  response  of  the  soil  bacterium 
Enterobacter  cloacae  to  hydrazine  (Reference  28,  30),  an  increase  in 
hydrazine  concentration  caused  an  extension  of  the  lag  growth  period  for 
Achromobacter  sp.  However,  lag  growth  periods  were  short.  This  is 
because  more  than  50  percent  of  the  hydrazine  has  already  been  degraded 
at  the  onset  of  exponential  growth.  Obviously  the  enzymes  responsible 
for  degradation  of  the  chemical  are  not  poisoned  or  deactivated  by  the 
chemical . 

Inability  of  the  Achromobacter  sp.  to  grow  on  hydrazine  as 
a  sole  source  of  nitrogen  indicates  that  the  metabolic  process  for  hydra¬ 
zine  is  cometabolic.  The  Achromobacter  sp.  utilizes  nitrate  or  ammonia 
as  a  sole  source  of  nitrogen  for  growth,  and  these  cells  degrade  hydra¬ 
zine.  Thus,  it  is  likely  that  some  common  enzymes  responsible  for  meta¬ 
bolism  of  nitrate  and  ammonia  also  have  a  capacity  to  degrade  hydrazine. 
Oxidation  of  hydrazine  to  nitrogen  gas  by  Nitrosomonas  sp.  has  also  been 
suggested  to  be  a  cometabolic  process  (Reference  27). 

It  is  understandable  that  nitrate,  nitrite  and  ammonia 
were  not  the  degradation  products  of  hydrazine.  If  those  products  had 
been  formed  Achromobacter  sp.  should  be  able  to  utilize  hydrazine  for 
growth.  Likewise,  it  is  also  unlikely  that  hydroxylamine  is  a  degrada¬ 
tion  product.  Hydroxylamine  is  toxic  and  unstable  (References  41,  421, 
and  is  suspected  to  be  an  intermediate  of  nitrate  metabolism. 

The  observation  that  some  common  heterotrophic  soil  bacte¬ 
ria,  such  as  Achromobacter  sp..  Bacillus  sp.  and  Pseudomonas  sp.,  as  well 
as  autotrophic  nitrifiers  reported  by  Kane  and  Williamson  (Reference  27), 
can  degrade  hydrazine  suggests  that  microbial  degradation,  in  addition  to 
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autooxidation,  may  play  a  role  in  removing  this  chemical  from  the 
environment.  In  light  of  the  rapid  degradation  by  Achromobacter  sp., 
which  was  observed  at  concentrations  beyond  100  Ug/mL,  the  bacterium  may 
have  potential  for  use  in  the  detoxication  of  hydrazine  from  contaminated 
soils  and  waters,  and  from  wastes. 

c.  Enhancement  of  Degradation 

Hydrazine  was  not  degraded  in  any  of  the  six  waters  during 
2  hours  of  incubation.  Hydrazine  was  not  stable,  however,  in  these 
waters  when  suspended  with  18  hour-old  cells  of  Achromobacter  sp.  The 
degree  of  stability  in  the  cell  suspensions  depended  upon  hydrazine  con¬ 
centration  and  type  of  water.  Table  19  shows  percent  reduction  of  hydra¬ 
zine  in  six  waters  suspended  with  the  Achromobacter  sp.  after  2  hours  of 
incubation.  The  initial  hydrazine  concentrations  ranged  from  11  to  73 
Ug/mL.  Bacterial  cells  suspended  in  Santa  Fe  River  water  were  the  most 
active  in  degrading  hydrazine.  Bacterial  cells  suspended  in  Lake  Alice 
water  also  had  a  high  capacity  to  degrade  the  chemical.  It  appeared  that 
the  Achromobacter  sp .  in  Santa  Fe  River  v:ater  and  Lake  Alice  water 
declined  in  their  capacity  to  degrade  hydrazine  at  50  Ug/mL.  The  same 
bacterium  in  other  waters  started  to  decline  in  degradation  capacity  at 
25  Ug/mL.  No  degradation  was  observed  in  the  six  waters  when  suspended 
with  autoclaved  bacterial  cells  during  two  hours  of  incubation.  Similar 
degradation  capacity  was  observed  whether  the  bacterial  cells  were  sus¬ 
pended  in  autoclaved  or  filtered  water  samples. 

When  the  water  samples  were  buffered  with  phosphates,  the 
degradation  capacity  of  the  Achromobacter  sp.  in  Santa  Fe  River  water, 
Lake  Alice  water,  tap  water,  and  distilled  water  was  enhanced  (Table  20). 
Even  in  distilled  water  57  and  53  percent  of  the  hydrazine  was  degraded 
when  initial  hydrazine  concentrations  were  75  and  100  Ug/mL,  respec¬ 
tively.  pH  values  for  the  buffered  waters  were  at  least  3.6  units  higher 
than  for  unbuffered  waters,  with  the  exception  of  the  Santa  Fe  River 
water.  This  water  appeared  to  have  a  high  buffer  capacity  against  hydra¬ 
zine  sulfate  (Table  21).  The  critical  pH  value  was  approximately  3.5. 
Below  this  range  the  capacity  for  the  organism  to  degrade  hydrazine 
decreased  drastically. 
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TABLE  19. 

HYDRAZINE 

BACTERIUM 

DEGRADATION  IN  WATERS  SUSPENDED 

ACHR0M0BACTER  SP.3 

WITH  A  SOIL 

Water 

Initial  N, 

,H^  Percent 

Initial  N  H 

Percent 

(ug/mL) 1 

Reduction 

(pg/mL) 

Reduction 

after  2  hours 

after  2  hours 

Santa  Fe  River 

11 

90 

25 

92 

50 

r\c 

s  'J 

75 

51 

Lake  Alice 

11 

91 

25 

96 

50 

78 

75 

46 

Newmans  Lake 

11 

90 

25 

72 

50 

30 

Prairie  Creek 

11 

90 

25 

76 

50 

28 

Tap  Water 

11 

91 

25 

80 

50 

52 

75 

9 

Distilled  wate 

r  11 

90 

25 

32 

50 

22 

75 

5 

Bacterial  cells  were  added  at  2.2  ±  0.2  mg/mL. 


Table  22  shows  the  stability  of  hydrazine  in  autoclaved 
and  nonautoclaved  waters.  Among  the  six  unsterile  waters,  hydrazine  in 
Santa  Fe  River  water  was  the  most  unstable.  Hydrazine  in  this  water  dis¬ 
appeared  completely  in  14  days.  Even  in  autoclaved  water,  66  percent  of 
the  hydrazine  was  degraded  in  14  days.  On  the  other  hand,  hydrazine  in 
Newmans  Lake  water  and  in  Prairie  Creek  water  was  very  stable,  even  more 
so  than  in  distilled  water.  No  degradation  occurred  in  the  two  waters 
during  14  days  of  incubation.  By  comparing  the  degradation  results  in 
sterile  and  nonsterile  waters,  it  appeared  that  biological  degradation 
was  more  important  initially  for  the  Santa  Fe  River  water,  whereas  auto¬ 
oxidation  was  more  important  initially  for  the  Lake  Alice  water.  It  was 
not  clear  why  Newmans  Lake  water  and  Prairie  Creek  water  did  not  degrade 
hydrazine,  and  why  hydrazine  in  these  waters  was  more  stable  than  in  dis¬ 
tilled  water.  Bacterial  and  fungal  populations  in  these  two  waters  were 
very  low  (see  Table  15) .  No  bacteria  or  fungi  were  detected  in  the  dis¬ 
tilled  water  sample. 
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TABLE  20.  HYDRAZINE  DEGRADATION  IN  BUFFERED  WATERS  SUSPENDED  KITH 


CELLS  OF  AN 

ACHROMOBACTER 

SP.3 

Water 

Initial  N 

2^  Percent 

Initial 

N„H, 

Percent 

(Ug/mL) 

Reduction 

(Ug/mL) 

Reduction 

after  2  hours 

after  2  hours 

Santa  Fe  River 

75 

63 

100 

49 

Lake  Alice 

75 

63 

100 

52 

Tap  water 

75 

65 

100 

53 

Distilled  water 

75 

57 

100 

53 

Bacterial  cells 

were  added  at  2.2±0.2  : 

mg/mL. 

TABLE  21.  pH  VALUES  OF 

WATER  AMENDED 

WITH  VARIOUS  CONCENTRATIONS 

OF 

HYDRAZINE 

W'ater 

PH _ 

Hydrazine  concentration  (pg/mL) 

25 

50 

75 

50 

75 

TJ , ,  f  ~  A 

unDui  rerea  ■■■ 

Santa  Fe  River 

6.8 

6.4 

5.9 

6.7 

6.7 

Prairie  Creek 

3.4 

3.2 

3.0 

6.7 

6.7 

Lake  Alice 

6.4 

5.5 

3.4 

6.7 

6.7 

Newmans  Lake 

3.5 

3.2 

3.0 

6.7 

6.7 

Tap  water 

5.8 

3.5 

3.1 

6.7 

6.7 

Distilled  water 

3.3 

3.1 

2.9 

6.7 

6.7 
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TABLE  22.  HYDRAZINE  DEGRADATION  IN  NONSTERILE  AND  STERILE  WATER. 3 


Time 

(days) 

Percent  Reduction 

Santa  Fe 
River 

Lake  Alice 

Newmans 

Lake 

Prairie 

Creek 

Tap 

water 

Dist. 

water 

1 

b  c 

28  (5) 

0(8) 

0(0) 

0(0) 

2(0) 

0(0) 

2 

40(9) 

9(9) 

0(0) 

0(0) 

2(0) 

0(0) 

5 

85(33) 

42(34) 

0(0) 

0(0) 

12(0) 

0(0) 

7 

96(45) 

56(48) 

0(0) 

0(0) 

19(2) 

2(0) 

14 

100(66) 

86(71) 

0(0) 

0(0) 

28(8) 

2(0) 

Initial  hydrazine  concentration  was  25  yg/mL 
Unsterile  water 


C 

Sterile  water 


Although  cupric  ions  have  a  capacity  to  catalyze  the  auto¬ 
oxidation  of  hydrazine  in  waters  (Reference  40),  no  relationship  between 
copper  content  and  rate  of  hydrazine  degradation  was  found  for  the  waters 
used  in  this  study.  Likewise,  ferric  ions  may  also  catalize  oxidation  of 
the  chemical  in  waters.  Again  no  correlation  was  found.  However,  the 
levels  of  copper  and  iron  in  the  waters  were  either  very  low  or 
negligible  (Table  15).  At  these  low  levels  cupric  ions  or  ferric  ions 
may  not  exert  any  catalytic  effect  on  hydrazine  oxidation.  Since  all 
samples  were  incubated  under  the  same  conditions,  it  would  be  expected 
that  dissolved  oxygen  levels  in  the  waters  would  be  about  the  same.  In 
addition,  no  correlation  was  found  between  dissolved  oxygen  content  and 
hydrazine  degradation  in  the  waters  (Reference  4).  Our  results  indicate 
that  microbial  activity  and  buffer  capacity  of  the  waters  play  a  key  role 
in  the  degradation  of  hydrazine  sulfate.  In  light  of  the  rapid  hydrazine 
degradation  and  high  bacterial  populations  of  the  Santa  Fe  River  water,  a 
large  number  of  specific  degraders  may  be  present  in  this  water.  In 
addition,  the  high  buffer  capacity  of  this  water  may  reduce  hydrazine 
toxicity  toward  bacteria. 
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The  Achromobacter  sp.  in  the  waters  of  Santa  Fe  River  and 
Lake  Alice,  as  well  as  in  tap  water  and  distilled  water,  also  had  a  high 
capacity  to  degrade  nonsalt  forms  of  hydrazine  (the  monohydrate  in  this 
case)  (Table  23).  In  fact,  the  bacterium  in  these  waters  degraded  the 
nonsalt  form  better  than  the  salt  form.  The  average  pH  values  of  the 
four  waters  supplied  with  hydrazine  monohydrate  at  17,  34,  and  68  Ug/mL 
were  8.42  ±  0.24,  8.58  ±  0.20,  and  8.73  ±  0.17,  respectively.  At  concen¬ 
trations  of  17  and  34  ug/mL,  hydrazine  monohydrate  exerted  no  adverse 
effect  on  degradative  activity  of  the  Achromobacter  sp.  At  these  concen¬ 
trations  92  to  95  percent  of  the  nonsalt  form  was  degraded.  At  a  concen¬ 
tration  of  68  Ug/mL,  somewhat  less  degradation  activity  was  observed  for 
all  four  waters.  No  degradation  was  observed,  however,  in  the  waters 
without  adding  the  bacterium  during  2  hours  of  incubation.  Also,  no 
degradation  was  observed  after  adding  autoclaved  cells  of  Achromobacter 
sp.  to  the  waters. 

The  Achromobacter  sp.  enhanced  hydrazine  degradation  ir. 
all  water  samples  but  did  not  do  so  in  Arredondo  soil  during  one  hour  of 
incubation.  Degradation  of  hydrazine  in  soil  treated  and  untreated  with 
Achromobacter  sp.  was  not  significantly  different  (±1  percent  level)  at 
hydrazine  concentration  of  100  Ug/g  to  500  Ug/g.  However,  addition  of 
the  bacterium  to  soil  suspensions  (10  percent  soil)  did  enhance  hydrazine 
degradation  (Table  24).  The  degree  of  degradation  enhancement  by  the 
bacterium  in  the  soil  suspensions  was  not  as  great,  however,  as  for  the 
water  samples. 

Inability  of  the  Achromobacter  sp.  to  enhance  hydrazine 
degradation  in  soil  may  be  in  part  due  to  hydrazine  toxicity  to  the  bac¬ 
terium  and  in  part  due  to  a  soil  surface  effect.  The  soil-water  content 
used  in  this  study  was  0.1  mL/g  of  soil.  Since  hydrazine  is  highly 
water-soluble,  at  a  concentration  of  100  Ug/g  of  soil  the  concentration 
of  hydrazine  in  the  aqueous  phase  would  be  1000  Ug/mL  (assuming  no 
adsorption  to  soil  surfaces).  At  this  concentration  the  activity  of 
Achromobacter  sp.  would  be  inhibited  (Reference  39).  Soil  surfaces  also 
may  hinder  the  activity  of  the  organism.  This  could  result  in  loss  of 
its  enzyme  activity,  or  in  physical  separation  of  the  organism  from  the 
target  chemical.  In  short,  Achromobacter  sp.  may  have  potential  as  an 
agent  for  the  detoxification  of  hydrazine  in  contaminated  waters  and 
liquid  wastes. 


Ill 


Bacterial  cells  were  added  at  2.2  ±  0.2  mg/mL. 


112 


TABLE  24.  HYDRAZINE  DEGRADATION  IN  SOIL  SUSPENSIONS  WITH  AND  WITHOUT 
ADDED  ACHROMOBACTER  SP.a 


Soil 

Suspension 

Initial 

N2H4 

(Ug/tnL) 

Percent 
Reduction 
after  2  hours 

Initial 

N  H 

(Mg/mL) 

Percent 
Reduction 
after  2  hours 

Unbuffered 

Unsterile  +  cel^s*5 

25 

56 

50 

45 

Sterile  +  cells 

25 

57 

50 

45 

Unsterile 

25 

45 

50 

20 

Sterile 

25 

41 

50 

30 

Buffered 

Unsterile  +  cel^s*5 

25 

92 

50 

81 

Sterile  +  cells 

25 

91 

50 

83 

Unsterile 

25 

85 

50 

59 

Sterile 

25 

85 

50 

64 

0.5  g  of  Arredondo 

soil  in  5 

mL  of  unbuffered 

or  buffer 

ed  distilled 

water . 


^Weight  of  cells  2.2  ±  0.2  mg/mL. 
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TABLE  25.  EFFECT  OF  HYDRAZINE  ON  SOIL  RESPIRATION  IN  ARREDONDO  SOIL 
TREATED  WITH  HYDRAZINE  AT  0,  2.5,  25  AND  125  yg/g. 


Days 

Rate  of 

CO^  Production  (mg  CO^-C/lOOg  so 

il/day) 

Hydrazine  (yg/g) 

0 

2.5 

25 

125 

1 

2.7910.11 

2.4110.07 

1.9910.10 

1.6410.26 

3 

1.5510.02 

1.6610.05 

1.7610.04 

1.6810.04 

7 

0.7010.04 

0.8210.08 

0.8010.03 

0.8610.09 

11 

0.7210.11 

0.7510.11 

0.6510.06 

0.7310.10 

14 

0.5410.04 

0.5010.02 

0.4910.05 

0.6910.09 

18 

0.5110.10 

0.4110.02 

0. 4H0.06 

0.6110.10 

21 

0.5010.10 

0. 4H0. 01 

0.4410.06 

0.5210.03 

Total3 

16.73 

16.38 

LSD0.05  =  K93 

15.74 

17.43 

aTotal 

cumulative  CO 

2~C(mg)  production 

in  21  days. 

bLSDo. 

least-significant  difference 

at  the  5%  level 

« 

d.  Effect  on  Soil  Microbial  Activity 

Soil  respiration  (total  CO^  evolution)  in  hydrazine- 
treated  soils  was  initially  inhibited,  with  the  degree  of  initial  inhibi¬ 
tion  progressively  increasing  as  hydrazine  concentration  increased 
(Tables  25  and  26).  However,  the  inhibition  was  temporary.  In  fact,  not 
only  had  all  samples  recovered  from  the  Inhibition  within  2  days,  but  CO^ 
production  was  actually  enhanced.  CO^  production  then  levelled  off  after 
6  or  7  days.  Total  cumulative  CO^  production  in  all  treatments  was  not 
significantly  different  (p  =  0.05)  after  21  days. 
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TABLE  26.  EFFECT  OF  HYDRAZINE  ON  SOIL  RESPIRATION  IN  ARREDONDO  SOIL 
TREATED  WITH  HYDRAZINE  AT  0,  250  AND  500  ug/g. 


Days 

Rate  of 

C0?  Production  (mg  CO^-C/lOOg 

soil/day ) 

Hydrazine (yg/ g) 

0 

250 

500 

1 

2.5210.04 

1.4310.15 

1.2710.08 

o 

1.7710.03 

1.9710.13 

1.5710.06 

3 

1.3H0.02 

1.4710.13 

2.1410.06 

6 

0.8510.06 

0.8910.05 

1.0910.02 

10 

0.5810.05 

0.6210.06 

0.6110.02 

14 

0.5010.01 

0.5610.04 

0.5210.01 

17 

0.5310.05 

0.5710.04 

0.5510.06 

21 

0.4310.02 

0.5210.10 

0.4710.06 

Total3 

15.78 

16.05 

16.30 

LSDj  05  -  1.64 

Total  cumulative  CO^-CCmg)  production  in  21  days. 

^LSDn  n  least-significant  difference  at  the  0.05  percent  level. 

U  •  U  j 


Similar  to  CO^  production,  bacterial  populations  in  hvdra- 
zine-treated  soils  were  also  reduced  initially  (Table  27),  although  fun¬ 
gal  populations  were  not  affected.  The  reduction  of  bacterial  popula¬ 
tions  appeared  to  be  the  principal  cause  of  the  inhibition  in  CO^  evolu¬ 
tion.  For  the  100  yg/g  treatment,  bacterial  populations  quickly 
recovered.  This  reflected  the  fact  that,  at  this  concentration,  hydra¬ 
zine  was  completely  degraded  within  1  day  (Table  16).  In  fact,  bacterial 
populations  were  enhanced  in  7  days  and  remained  larger  than  the  control 
treatment  thereafter.  In  contrast,  bacterial  populations  for  the  500 
yg/g  treatment  were  at  least  10  times  smaller  than  for  the  control  treat¬ 
ment  throughout  the  28  days  of  incubation.  After  7  days  fungal  popula¬ 
tions  for  the  100  and  500  yg/g  treatments  were  significantly  larger  than 
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TABLE  27.  EFFECT  OF  HYDRAZINE  ON  BACTERIAL  AND  FUNGAL  POPULATIONS  IN 


ARREDONDO  SOIL. 


Concentrati 
of  hydrazir 
(Ug/g) 

Lon 

Days 

le  1 

7 

14 

21 

28 

Bacteria  (cfu/g  x 

io'6) 

0 

13.92 

15.45 

9.83 

7.63 

7 

.21 

100 

1.35 

24.90 

42.60 

25.80 

16 

.40 

500 

0.82 

0.68 

0.91 

0.44 

0 

.56 

Fungi 

(cfu/ga  x  10 

2> 

0 

1.05 

2.26 

2.70 

2.22 

2 

.61 

100 

0.87 

6.71 

9.36 

9.59 

9 

.70 

500 

1.00 

3.85 

11.44 

9.49 

7 

.84 

cfu/g  colony  forming  units  per  gram  of  soil. 


for  the  control  treatment.  Because  of  the  magnitude  of  the  reduction  in 
bacterial  populations  for  the  500  ug/g  treatment,  not  only  nitrifying 
bacteria,  denitrifying  bacteria,  anaerobic  bacteria  (Reference  27),  and 
Enterobacter  cloacae  (Reference  29)  would  be  killed,  but  many  other 
bacteria  could  be  killed  as  well. 

Hydrazine  at  concentrations  of  10  and  100  Ug/g  did  not 
exert  any  adverse  effect  on  nitrification  after  49  days  for  the  Arredondo 
soil  (Table  28).  However,  nitrification  did  not  take  place  to  a  signifi¬ 
cant  extent  in  the  500  ug/g  treatment.  As  mentioned  above,  bacterial 
populations  in  this  treatment  were  profoundly  reduced,  and  nitrifying 
bacteria  most  likely  would  be  killed  at  this  concentration.  Our  results 
suggest  that,  at  concentrations  of  100  Ug/g  and  lower,  hydrazine  exerts 
no  adverse  effect  or  only  a  short,  temporary  effect  on  soil  microbial 
activity. 


TABLE  28.  EFFECT  OF  HYDRAZINE  ON  NITRIFICATION  IN  ARREDONDO  SOIL. 


Hydrazine 

concentration 

(ug/g) 

NH^-Na 

(ug/g) 

N0~-Na 

(ug/g) 

0 

79 . 6±0 . 9 

60.6±0.8 

10 

69. 3±1 1 . 1 

60. 9±2.0 

100 

82 . 7±0 . 5 

53 . 8±0 . 5 

500 

123. 1±3.0 

12.6+0.2 

Results  at  49  days 


2.  Monomethylhydrazine 

a.  Effect  on  Soil  Microbial  Activity 

MMH  at  concentrations  ranging  from  10  to  500  ug/g  did  not 
inhibit  soil  respiration  in  Arredondo  soil.  Unlike  hydrazine,  which  ini¬ 
tially  inhibited  total  CO^  production  by  soil,  total  CO^  evolution  was 
actually  enhanced  initially  by  the  treatment  with  MMH  (Tables  29  and  30) . 
In  fact,  initial  total  CO^  production  became  progressively  larger  as  MMH 
concentration  was  increased.  Total  cumulative  CO^  production  during  21 
days  for  all  of  the  MMH-treated  samples  was  significantly  higher  than  for 
the  untreated  samples. 

Total  aerobic  bacterial  populations  and  total  fungal  popu¬ 
lations  were  also  not  inhibited  by  10  ug/g  of  MMH  (Table  31)  and,  at  100 
Ug/g  and  larger,  total  aerobic  bacterial  populations  (Tables  31  and  32) 
were  actually  significantly  larger  than  for  the  control  treatments 
throughout  the  entire  21  days  of  incubation,  with  total  bacterial  popula¬ 
tions  becoming  progressively  larger  as  MMH  concentration  was  increased. 
At  100  yg/g,  total  fungal  populations  were  either  not  affected  or  were 
increased  as  well,  though  total  fungal  populations  in  soil  treated  with 
200  and  500  ug/g  of  MMH  were  significantly  but  not  severely  reduced.  The 
effect  of  500  ug/g  of  MMH  was  in  contrast  to  that  of  hydrazine,  which 
severely  reduced  bacterial  populations  but  enhanced  fungal  populations. 
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TABLE  29 

.  TOTi-iL  C0o 

MMH  AT  0, 

PRODUCTION  FROM  ARREDONDO  SOIL 

10,  50  AND  100  ug/g. 

TREATED  WITH 

Days 

Rates 

of  C0o 

Production  (mg  C09  -  C/lOOg  soil/day)  | 

MMH  (ug/g) 

0 

10 

50 

100 

0-1 

4.61 

±0.12 

5.00 

±  0.15 

5.24  ±  0.18 

5.56 

±  0.15 

1-2 

3.66 

±  0.14 

3.82 

±  0.14 

4.09  ±  0.18 

4.17 

±  0.13 

2-5 

2.00 

±  0.06 

2.13 

±  0.03 

2.41  t  0.34 

2.40 

±  0.29 

5-7 

1.47 

±  0.09 

1.57 

±  0.06 

1.64  ±  0.11 

1.65 

±  0.09 

7-11 

1.16 

±  0.05 

1.25 

±  0.00 

1.33  ±  0.09 

1.34 

±  0.05 

11-14 

1.05 

±  0.01 

1.21 

±  0.15 

1.14  ±  0.06 

1.20 

t  0.C4 

14-18 

0 . 88 

±  0.04 

1.09 

±  0.13 

1.01  ±  0.05 

1.05 

±  0.05 

18-21 

Total 

0.78 

(mg) 

±  0.04 

32.80 

0.92 

LSV 

±  0.09 

36.29 

05  =  2-32 

0.90  ±  0.03 

37.19 

0.93 

±  0.04 

38.16 

b.  Degradation  in  Soil 


MMH  disappeared  rapidly  from  both  nonsterile  and  sterile 
soils.  MMH  at  10  yg/g  completely  disappeared  from  nonsterile  and  sterile 
soils  in  30  minutes.  Even  at  100  and  500  yg/g,  only  41.8  and  67.4  per¬ 
cent  of  the  applied  MMH  were  detected  in  nonsterile  soils  (Table  33)  , 
respectively,  30  minutes  after  application.  After  48  hours,  only  small 
amounts  of  MMH  remained  in  either  nonsterile  or  sterile  samples.  The 
percentage  of  MMH  remaining  in  sterile  soils  was  consistently  slightly 
higher  than  in  nonsterile  soils.  This  suggested  that  chemical  degrada¬ 
tion  was  the  most  important  factor  contributing  to  the  disappearance  of 
MMH  from  soil.  Biological  degradation  also  contributed  to  the  disappear¬ 
ance  of  MMH,  though  much  less  significantly. 

Despite  the  fact  that  biological  degradation  played  only  a 

minor  role  in  the  disappearance  of  MMH  from  soil,  it  was  found  that  sub- 

14 

stantial  amounts  of  C-MMH  in  nonsterile  soil  were  mineralized  to  C0o. 

14 

The  evolved  and  trapped  C-activity  in  the  KOH  traps  was  principally 
14  14 

CO^,  since  little  C-activity  remained  in  the  supernatants  after  pre¬ 
cipitation  with  BaC^  (Table  34) .  Degradation  of  MMH  to  CO^  is  a  micro¬ 
bial  process.  After  9  days  of  incubation,  46.5  and  42.6  percent  of  the 
14 

applied  C-activity  were  trapped  in  KOH  for  Arredondo  soil  treated  with 

14 

100-  and  500-yg/g  of  C-MMH,  respectively.  More  than  95  percent  of  the 

14  14 

trapped  C-activity  was  found  to  be  associated  with  CO^.  Furthermore, 


TABLE  33.  MMH  IN  NONSTERILE  AND  STERILE  ARREDONDO  SOIL. 


Hours 

MMH  (percent  remaining) 

100  yg/g 

500  yg/g 

Nonsterile 

Sterile 

Nonsterile 

Sterile 

0.5 

41.8 

49.8 

67.4 

70.6 

4 

8.7 

NDa 

23.4 

ND 

24 

1.6 

5.3 

1.3 

4.3 

48 

0.7 

2.3 

0.6 

1.2 

aNot  determined. 
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TABLE  34.  14C-ACTIVITY  EVOLVED  AND  TRAPPED  IN  KOH  FROM  ARREDONDO 
SOIL  TREATED  WITH  14C-MMH. 


Days 

Percent  of  applied 

14„  , 

C-activity 

100  yg/g 

500  yg/g 

1 

12. 3a  (0 . 6 ) b 

6.8a  (0 . 4) b 

2 

32.3  (1.7) 

14.5  (1.2) 

3 

38.7  (1.9) 

27.1  (1.4) 

6 

44.1  (2.1) 

39.7  (1.6) 

9 

46.5  (2.2) 

42.6  (1.9) 

o  |  A 

C-activity  in  KOH  before  addition  of  BaCl^. 

bl4 

C-activity  in  KOH  after  addition  of  BaCl^. 


6.9  and  4.7  percent  of  the  applied  *4C-activity  in  the  100-  and  500-yg/g 

treatments  could  be  extracted  with  0.1N  HC1,  respectively,  and  26.9  and 

14 

28.8  percent  of  applied  C-activity  remained  in  the  extracted  100  ana 

14 

500  yg/g  treated  soils,  respectively.  Total  C-recoveries  for  the  100 
and  500  yg/g  treatments  were  80.3  and  76.1  percent,  respectively.  MMH  at 
25°C  has  a  vapor  pressure  of  49  mm  Hg  (Reference  40),  which  is  somewhat 
higher  than  the  vapor  pressure  of  water.  Hence,  at  least  a  part  of  the 

unaccounted  for  ^4C-activity  had  been  lost  from  volatilization.  No  ^4C0„ 

14  ^ 

was  evolved  from  sterile  soil  treated  with  C-MMH. 

Although  MMH  disappeared  rapidly  from  both  nonsterile  and 
sterile  soils,  our  findings  suggest  that  the  nature  of  MMH  degradation  in 
nonsterile  soil  may  be  different  from  that  in  sterile  soil.  Alterna¬ 
tively,  it  is  possible  that  MMH  in  both  nonsterile  and  sterile  soils  was 
initially  oxidized  chemically  to  an  oxidation  product,  while  the  product 
was  subsequently  degraded  microbiologically  to  CO^  in  nonsterile  soil. 
The  product  in  sterile  soil  was  not  degraded  further. 

The  enhancement  of  CO^  production  in  MMH-treated  soils  was 
in  part  due  to  the  increase  in  aerobic  bacterial  populations  and  in  part 
due  to  the  mineralization  of  MMH  to  CO^.  Since  degradation  of  MMH  to  CO^ 
is  principally  microbial,  it  is  possible  that  MMH-degrading  microorga¬ 
nisms  can  be  isolated  from  soil  and  used  for  detoxification  of  contami¬ 
nated  soils,  water,  and  wastes. 
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c.  Microbial  Degradation 

MMH  at  25  and  100  yg/mL  was  rapidly  degraded  by  the  grow¬ 
ing  cultures  of  both  Achromobacter  sp.  and  Pseudomonas  sp.  (Figures  48 
and  49)  .  Both  bacteria  required  a  second  carbon  source  (glucose)  and  a 
second  nitrogen  source  (ammonium  nitrate)  for  growth.  Since  only  small 
amounts  of  MMH  were  degraded  in  the  autoclaved  cultures,  degradation  of 
MMH  in  the  growing  cultures  was  principally  microbial.  MMH  at  both  con¬ 
centrations  was  rapidly  degraded  by  the  growing  culture  of  Pseudomonas 
sp.  without  a  lag  period.  This  was  possibly  due  to  either  a  high  initial 
inoculum  level  or  a  high  initial  degradative  enzyme  activity.  Higher  MMH 
concentrations  appeared  to  prolong  the  lag  phase  of  bacterial  growth. 
Although  the  Achromobacter  sp.  degraded  MMH,  growth  of  this  organism  in 
the  presence  of  MMH  at  the  end  of  the  incubation  period  (96  hours)  had 
not  reached  the  same  level  as  in  the  absence  of  MMH. 

Neither  Achromobacter  sp.  nor  Pseudomonas  sp.  degraded  MTH 

to  CO  .  Although  MMH  was  completely  degraded  in  4  days  by  both  bacteria, 
1  14 

the  majority  of  the  applied  C-activity  still  remained  in  the  culture 

14 

fluids  (Table  35)  .  Less  than  4  percent  of  the  applied  C-activity  was 
found  in  the  KOH  traps.  No  change  of  radioactivity  in  the  KOH  traps  was 

observed  before  and  after  acidification  of  the  KOH.  This  indicated  that 

14  14  14 

the  trapped  C-activity  was  not  associated  with  C0„.  The  trapped  C- 

14  1 

activity  probably  consisted  of  C-MMH  and  volatile  metabolites.  MMH  is 

14 

somewhat  more  volatile  than  water  (Reference  40) .  Total  C-recoveries 
for  all  treatments  were  near  100%. 

TLC-autoradiographic  assays  confirmed  the  results  of  the 
colorimetric  determinations,  namely  that  MMH  had  completely  disappeared 
from  4-day-old  cultures  of  the  two  bacteria.  The  TLC-autoradiographic 
assays  also  revealed  that  MMH  was  degraded  to  water-soluble  polar  metabo¬ 
lites  (R^  value  =  0) . 

Resting  cell  suspensions  of  the  two  organisms  had  a  high 
capacity  to  degrade  MMH  (Table  36).  During  1  hour  of  incubation,  MMH  at 
concentrations  under  50  yg/g  was  either  completely  or  near-completely 
degraded.  Even  at  117  yg/g,  57  and  34  percent  of  the  MMH  were  degraded 
in  cell  suspensions  of  the  Achromobacter  sp.  and  the  Pseudomonas  sp., 
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Time  (hours) 


Figure  48.  MMH  Degradation  and  Growth  of  Achromobacter  sp. 

Designations:  O*  A»  aru*  Q,  Absorbance  of  Culture  Fluids 
with  Initial  MMH  Concentrations  of  0,  27  and  88  yg/mL, 
Respectively;  A  and  |  ,  MMH  Concentrations  in  Culture 
Fluids;  and  Q  ,  MMH  Concentration  in  the  Culture-free  Medium. 
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Absorbance  at  550  nm 


Figure  49.  MMH  Degradation  and  Growth  of  Pseudomonas  sp. 

Designations:  0>  A«  and  Q  ,  Absorbance  of  Culture  Fluids 
with  Initial  MMH  Concentrations  of  0,  27  and  100  yg/mL, 
Respectively;  A  and  J,  MMH  Concentrations  in  Culture 
Fluids;  and  £,  MMH  Concentration  in  the  Culture-free 
Medium.  i 
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TABLE  35.  14C-ACTIVITY  IN  CULTURE  FLUIDS  OF  ACHROKOBACTER  SP.  AND 
PSEUDOMONAS  SP.,  AND  IN  KOH  TRAPS  AFTER  4  DAYS  OF 
INCUBATION. 


MMH 

(ug/g) 

Percent 

14 

of  applied  C-activity 

14 

C-Activity 
Remaining  in 

Culture  Fluids 

^4C-Activity 

Trapped  in  KOH 

Recovery 

Achromobacter  sp. 

25 

94.4 

4.8 

99.2 

100 

94.0 

4.7 

98.7 

Pseudomonas  sp. 

25 

96.4 

4.4 

100.8 

100 

96.8 

4.4 

101.2 
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TABLE  36.  DEGRADATION  OF  MMH  IN  LIVE  AND  AUTOCLAVED  CELL 

SUSPENSIONS  OF  ACHROMOBACTER  SP.  AND  PSEUDOMONAS  SP.3 


Cell 

Suspension 

Initial  MMH 
( Mg/ g) 

Percent 
after  1 

Reduction 

hour 

Achromobactar  sp. 

Live^ 

22 

100 

Live^ 

41 

100 

Live*3 

81 

83 

Live  k 

117 

57 

c 

Autoclaved 

21 

3 

c 

Autoclaved 

64 

0 

Pseudomonas  sp. 

Live1* 

21 

100 

Lived 

45 

96 

Live** 

86 

63 

Live'* 

117 

34 

Autoclaved6 

22 

4 

Autoclaved6 

67 

6 

Cell  suspensions  were  incubated  at  25°C  for  1  hour. 


^Cell  dry  weight  4.0  mg/mL. 

Cell  dry  weight  4.0  mg/mL. 
^Cell  dry  weight  4.1  mg/mL. 

g 

Cell  dry  weight  4.3  mg/mL. 
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respectively.  Less  than  6  percent  of  the  MMH  disappeared  from  autoclaved 
cell  suspensions.  This  suggests  that  degradation  in  the  resting-cell 

suspensions  was  principally  microbial.  Since  a  substantial  amount  of 

14  .  14 

C-MMH  in  soil  is  mineralized  to  CC^j  and  since  such  degradation  is 

microbial,  microorganisms  that  utilize  MMH  as  a  sole  source  of  carbon  for 

growth  may  exist.  Efforts  are  being  made  to  isolate  such  microorganisms 

from  soil. 

D.  CONCLUSIONS 

Both  hydrazine  and  MMH  are  rapidly  degraded  in  nonsterile  and  ster¬ 
ile  soils  and  autooxid ition  is  the  major  factor  in  contributing  to  the 
disappearance  of  the  chemicals.  Biological  degradation  also  contributes 
to  the  disappearance,  but  is  a  minor  factor. 

Microorganisms  that  have  capacity  to  degrade  hydrazine  and  exist 
in  soil.  Three  soil  bacteria,  an  Achromobacter  sp .  ,  a  1 seudomonas  so. 
and  a  Bacillus  sp.  are  found  to  have  capacity  to  degrade  hydrazine.  The 
Achromobacter  sp.  and  the  Pseudomonas  sp.  also  cometabolically  degrade 
MMH. 

Despite  the  fact  that  Achromobacter  sp.  and  Pseudomonas  sp .  can  not 
utilize  hydrazine  as  a  sole  source  of  nitrogen  as  well  as  can  not  utilize 
MMH  as  a  sole  source  of  carbon  for  growth,  these  two  bacteria  also  do  not 
degrade  MMH  to  its  final  oxidation  products  CO,,  and  H^O.  The  organisms 
may  have  potential  for  use  in  the  detoxification  of  hydrazine  -  and  MMH- 
contaminated  soils,  water,  and  wastes.  In  this  case,  the  nature  of  the 
water  soluble  polar  metabolites  of  MMH  need  to  be  determined. 

Due  to  rapid  degradation  of  hydrazine  and  MMH  in  soil,  bacterial  and 
fungal  populations  in  soil  are  less  sensitive  to  the  chemicals  than  to 
the  soil  axenic  bacterial  cultures.  In  fact,  hydrazine  enhances  fungal 
populations  in  soil,  and  MMH  enhances  soil  respiration  and  bacterial 
populations  in  soil. 

E.  RECOMMENDATIONS 

Similar  research  for  determination  of  degradation  rates  of  hydrazine 
and  MMH  in  soil  and  their  toxicity  to  soil  microbial  activity  should  also 
be  conducted  for  1 , 1-dimethylhydrazine  (UDMH) . 
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Microorganisms  that  have  capacity  to  degrade  UDMH  to  nontoxic  pro¬ 
ducts  should  be  isolated  from  soil  and  water.  Attempts  should  be  made  to 
use  the  organisms  to  detoxify  UDMH  from  contaminated  soils,  waters  and 
wastes . 

A  microbial  system  that  can  completely  defoxify  hydrazine,  MMH  and 
UDMH  in  contaminated  soils,  waters  and  wastes  should  be  developed. 

A  research  is  needed  to  study  the  fate  of  hydrazine  fuels  in  subsur¬ 
face  soils  and  groundwater,  and  microbial  degradation  of  the  chemicals  in 
subsurface  soils  and  groundwater. 

A  microbial  system  that  can  detoxify  hydrazine  fuels  in  vadose  zone 
soils  and  groundwater  should  be  developed. 
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SECTION  V 

SOIL  PHYSICS  AND  MODEL  DEVELOPMENT 

A.  INTRODUCTION 

Hydrazine  is  a  highly  reactive  diamine  NH^-NH^  (or  N^H^)  which  is  a 
strong  reducing  agent  in  alkaline  aqueous  solution  (reference  40) .  In 
alkaline  and  neutral  solutions  hydrazine  undergoes  rapid  chemical  degra¬ 
dation  by  the  process  of  autc oxidation.  In  acid  solution  hydrazine  is 
hydrolyzed  to  give  the  monovalent  cation  N^H^  which  is  not  susceptible  to 
autooxidation.  Schmidt  (reference  40)  states  that  acidified  hydrazinium 
salt  solutions  can  be  stored  for  months  without  change  in  composition. 
Thus ,  the  potential  for  contamination  of  groundwater  in  the  event  of 
accidental  spillage  of  hydrazine  onto  a  soil  or  subsurface  leakage  of 
hydrazine  from  underground  storage  tanks  depends  greatly  upon  soil  pH  and 
the  capacity  of  the  soil  to  buffer  against  rapid  changes  in  pH.  Soils 
that  occur  in  a  humid  climate  such  as  that  in  Florida  are  typically 
acidic  with  pH  commonly  ranging  from  4  to  6.  Acid  sandy  soils  in  Florida 
typically  have  low  acid  buffering  capacities  due  to  low  contents  of 
alumino-silicate  clay  minerals,  iron  and  aluminum  oxides,  organic  matter, 
and  other  chemically  reactive  components. 

This  portion  of  the  study  was  designed  to  determine  if  N^H*  would 
move  through  columns  of  water-saturated  soil  during  steady  flow  and  to 
develop  a  transport  model  to  describe  the  movement  and  fate  of  N?H^  in 
soil  columns.  Aqueous  solutions  of  N^H^  were  miscibly  displaced  through 
a  series  of  soil  columns  to  generate  experimental  information  to  evaluate 
the  mobility  of  N^H^  during  water  transport  in  soil.  That  data  was  also 
used  to  evaluate  proposed  models. 

Previous  research  results (references  1,  44,  47)  have  shown  N_H.  and 

+  2  4 
N^H^  molecules  to  be  highly  reactive  in  soil-water  systems.  Under  acidic 

conditions  the  hydrazinium  form  tends  to  dominate  in  the  solution  phase 
of  the  soil.  In  acidic  water  N-H*  is  chemically  stable  and  therefore 
persistent;  whereas  in  acidic  soil-water  systems  ^^5  ions  react  physic¬ 
ally,  chemically,  and  biologically  with  reactive  soil  constituents  such 
as  organic  matter,  alumino-silicate  clay  minerals,  and  sesquioxides . 
Major  reactions  known  to  influence  hydrazinium  in  acid  soil-water  systems 
include  the  following: 
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Reaction 

1.  Ion  exchange 
or  physical 
sorption 
between  N0H* 
ions  and 
exchangeable 
soil  cations 

2.  Complexation  or 
nonspecific  sorption 
of  ^2^5  ^ons  with 
cations  adsorbed 
onto  reactive  soil 
constituents 
Condensation 


Effect  Upon  Potential  Contamination  of  Groundwater 


3. 


reaction  of  N^H^. 


ions  with  carbonyl 
groups  of  humic 
components 
4.  Microbiological 
degradation  of 
by  soil 

microorganisms 


1. 


Reversible  removal  of  ions  from 

the  mobile  soil  solution 


Partially-reversible  removal  of 
ions  from  the  mobile 
soil  solution 


3.  Irreversible  removal  or 
chemisorption  of 

£.  J 

ions  from  the  mobile 
soil  solution 


4.  Destructive  irreversible 
removal  of  ions 

from  the  soil-water  system 


Hydrazinium  is  not  susceptable  to  chemical  degradation  by  autooxidation 
under  acid  conditions. 

The  complexity  of  reactions  with  soil  organic  matter  is  clearly 

illustrated  by  results  published  by  Isaacson  and  Hayes  (Reference  47) . 
They  used  a  continuous-flow  method  to  obtain  sorption  isotherms  for 

hydrogen-,  aluminum-,  and  calcium-exchanged  humic  acid  preparations 
(i.e.,  extracts  from  histosols)  in  pH  4  aqueous  suspensions.  Mean 
sorption  residence  times  ranged  from  7  to  270  minutes  for  the  liquid  flow 
rates  imposed  on  the  reaction  cells.  Ion  exchange,  chemisorption  and 
nonspecific  sorption  were  concluded  to  be  the  major  sorption  processes 
in  those  systems.  For  a  specific  case  where  2.30  mol  was  sorbed  per 
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2+ 

kg  of  Ca  -  humate,  relative  amounts  extracted  by  water  and  0.1  >1  NaCl 
solution  were  17  and  43  percent,  respectively.  Approximately  26  percent 
of  the  sorbed  was  irreversibly  sorbed  and  14  percent  was  not 

accounted  for  in  the  humic  residue.  Thus, only  43  percent  of  the  sorbed 
N?H^  was  desorbed  by  the  physical  process  of  ion  exchange.  Other  pro¬ 
cesses  contributed  to  26  percent  of  the  sorbed  being  tightly  bound 

to  the  humic  materials.  The  exchangeable  cation  species  on  the  humic 

substances  was  also  observed  to  influence  overall  sorption  of  N  H*.  For 

+  +  ^  ^ 
example,  N  H  ions  were  more  extensively  held  by  H  -  humic  acid  than  by 

2+  ^  5  3+ 

Ca^  -  humate  or  A1  -  humate.  This  observation  was  attributed  to  greater 

+  +  2+  34- 

ability  of  ions  to  exchange  with  H  than  with  Ca  and  A1  ions  on 

carboxyl  exchange  sites  and  to  disrupt  hydrogen  bonds  rather  than 

divalent-  and  polyvalent-cation  bridges  between  polymeric  strands  of  the 

2+  2+ 

humic  substances.  As  hydrazinium  ions  were  sorbed  by  Ca  -humate,  Ca 

34- 

ions  were  desorbed;  whereas  sorption  of  hydrazinium  ions  by  A1  -humate 

34- 

did  not  result  in  detectable  desorption  of  A1  ions.  The  authors  shcwec 

that  ion  exchange  was  involved  in  sorption  of  ions  by  Al'J+-humate 

even  though  A1  ions  were  not  detected  in  the  equilibrium  solution. 

Changes  in  differential  enthalpy  of  the  sorption  of  N  were  such  that 

the  affinity  by  which  hydrazinium  ions  were  held  by  Ca  -humate  increased 

as  the  quantity  of  sorbed  N„H  increased.  In  contrast,  the  affinity  by 
4-  1  3  4-1 

which  N„H  ions  were  held  by  H  -humic  acid  decreased  with  increasing 
^  3  + 

quantity  of  sorbed  Thus,  the  influence  of  chemisorption  (i.e., 

condensation  reaction)  and  non-specific  sorption  appeared  to  be  lowest 

4-  24- 

for  small  concentrations  of  in  solution  for  the  Ca  -humate  and 

appeared  to  increase  as  the  concentration  increased.  For  sorption  of 

N„hT  by  H+-humic  acid,  the  influence  of  chemisorption  and  nonspecific 

^  3  4- 

sorption  appeared  to  be  maximal  at  low  concentrations  and  to 

decrease  as  the  concentration  increased.  These  findings  are  particularly 

pertinent  to  sorption  of  ions  in  acid  sandy  soils  where  organic 

matter  exists  as  coatings  on  clay  minerals  as  well  as  discrete  particles. 

Although  the  cation  exchange  capacity  of  such  soils  are  typically  small, 

the  fractional  contribution  of  organic  matter  to  the  exchange  complex  is 

often  large. 

Microbial  degradation  of  and  in  soil  and  in  water  has  been 
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investigated  by  Ou  (Reference  39)  ,  Ou  and  Street  (Reference  55)  and  Ou 
and  Street  (Reference  3).  Under  aerobic,  water-unsaturated  soil  condi¬ 
tions  degradation  proceeded  more  rapidly  in  Arredondo  sand  than  in  water. 
Degradation  rates  in  the  Arredondo  soil  were  observed  to  decrease  as  the 
quantity  of  hydrazine  applied  increased.  They  reported  that  hydrazine 
applied  to  Arredondo  soil  at  concentrations  of  10,  100,  and  500  pg  g  ^ 
completely  disappeared  within  2,  24,  and  168  hours,  respectively.  Only 
20  percent  of  the  hydrazine  disappearance  was  directly  attributable  to 
biological  degradation.  Presumably,  the  remaining  80  percent  of  the 
disappearance  was  due  to  combined  effects  of  irreversible  chemisorption 
and  nonspecific  sorption  to  soil  components.  For  hydrazine  concentra¬ 
tions  of  100  pg  g  ^  and  lower,  hydrazine  exerted  no  adverse  effect  or 
only  a  short,  temporary  effect  upon  activity  of  soil  nitrifying  bacteria. 
A  toxic  effect  was  observed  for  concentrations  of  500  ng  g  \  Thus, these 
results  indicate  that  microbial  degradation  of  hydrazine  in  aerobic 
Arredondo  soil  is  greatest  for  low  application  rates  of  the  chemical  and 
decreases  with  increasing  application  rate. 

The  net  effect  of  ion  exchange,  complexation,  condensation,  and 

-f* 

microbial  degradation  processes  upon  the  transport  of  ^H,.  wit^  water 
through  the  porous  matrix  of  soils  should  be  to  minimize  local  concen¬ 
tration  levels  of  in  the  mobile  solution  phase  so  as  to  retard  the 
overall  migration  rate  of  the  chemical.  A  method  for  partial  removal  of 
irreversibly  retained  hydrazine  by  acid  extraction  of  soil  was  reported 
(Reference  49)  recently.  In  the  event  of  accidental  spillage  of  hydra¬ 
zine  onto  the  soil  surface  or  unsuspected  leakage  of  effluent  from 
underground  storage  tanks,  the  soil  profile  provides  a  hydrological 
connection  to  underlying  groundwater.  Thus,  as  aqueous  hydrazine  solu¬ 
tions  move  into  and  through  the  soil,  the  four  major  reactions  that 
influence  hydrazine  concentrations  in  the  solution  phase  provide  protec¬ 
tion  against  contamination  of  groundwater.  A  search  of  the  published 
literature  revealed  a  severe  lack  of  experimental  results  for  hydrazine 
movement  in  soil  from  either  laboratory  soil  columns  (Reference  44)  or 
from  intact  soil  profiles  at  field  sites.  This  lack  of  experimental 
information  concerning  hydrazine  mobility  in  soils  is  somewhat  surprising 
since  hydrazine  hydrate  was  discovered  100  years  ago  (Reference  58)  and 


is  currently  used  for  multiple  purposes.  Clearly,  such  information  is 
needed  to  evaluate  the  environmental  impact  of  accidental  spills  or 
storage  tank  leakage. 


B.  LABORATORY  INVESTIGATION  OF  HYDRAZINIUM  REACTIONS  AND  TRANSPORT  IN 

COLUMNS  AND  STIRRED  SUSPENSIONS  OF  SOIL 

1.  Objectives 

Soil  columns  and  stirred  aqueous  slurries  of  soil  were  used  to 
investigate  selected  major  factors  which  influence  the  persistence  and 
mobility  of  N  applied  to  a  coarse-textured  soil.  Factors  investigated 
include  concentration  of  in  applied  aqueous  solution,  method  of 

solution  application,  and  pore  water  velocity  in  soil  columns  during 
transport . 

2.  Experimental  Methods  and  Materials 

Data  needed  to  select  reactions  and  transport  processes,  to 
rank  them  in  order  of  importance,  and  to  evaluate  them  were  determined 
from  chemical  analysis  of  aliquots  of  effluent  from  saturated  soil  col¬ 
umns  and  from  stirred  aqueous  suspensions  of  three  sequential  profile 
horizons  of  Arredondo  fine  sand. 

a.  Soil  Properties 

Samples  from  Ap,  El,  and  E2  horizons  of  Arredondo  fine 
sand  were  obtained  from  a  site  (0.4  mile  east  of  state  road  241  and  0.6 
mile  north  of  state  road  222)  in  NW  Alachua  County,  Florida.  Arredondo 
fine  sand  is  a  loamy,  siliceous,  hyperthermic,  Grossarenic  paleudult 
(reference  60) ,  and  is  typical  of  the  well-drained  soils  of  Florida.  At 
the  collection  site  the  Ap  horizon  extended  from  the  surface  to  a  depth 
of  20  cm.  The  El  horizon  was  found  between  20-  to  80  cm  depths  and  the 
E2  horizon  occurred  between  80-  to  120  cm  depths.  These  horizons  were 
visually  distinguished  from  one  another  in  the  soil  profile.  Properties 
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of  the  horizons  which  affect  their  capabilities  for  reacting  with  and 
transporting  hydrazinium  during  water  flow  include  texture,  organic 
carbon  content,  acid-buffering  capacity,  pH,  chemical  composition,  and 
cation  exchange  capacity. 

The  distribution  of  sizes  for  mineral  particles  in  a  soil 
matrix  has  a  significant  effect  on  the  moisture  and  chemical  retention 
properties  of  the  soil.  Soils  high  in  percentage  sand-size  particles 
tend  to  retain  water  poorly  and  are  relatively  nonreactive  chemically 
when  compared  to  soils  higher  in  contents  of  smaller  silt-  and  clay-size 
particles . 

Particle  size  analysis  (mechanical  analysis)  for  mineral 
soil  components  was  performed  on  samples  of  the  three  horizons  by  the 
pipette  method  of  Gee  and  Bauder  (Reference  46) .  Samples  were  suspended 
in  distilled  water  and  dispersed  with  sodium  hexametaphosphate .  The 
supernatant  was  decanted  and  allowed  to  settle  in  a  constant  temperature 
water  bath  from  which  aliquots  were  removed  by  pipette  at  a  depth  ar.c 
time  corresponding  to  settling  velocity  determined  by  Stoke 's  Law. 
Samples  were  dried  and  weighed  to  determine  percentage  clay.  Remaining 
material  was  washed,  dried,  and  filtered  through  16-,  32-,  60-,  130-,  and 
325-mesh  U.S.A.  Standard  Testing  sieves  to  determine  various  sand  frac¬ 
tions.  Percentage  silt  was  determined  by  subtracting  sand  and  clay 
percentages  from  100. 

Organic  carbon  contained  in  the  organic  fraction  of  soil 
consists  of  cells  of  microorganisms,  plant  and  animal  residues  in  various 
stages  of  decomposition,  stable  humus  synthesized  from  residues,  and 
highly  carbonized  compounds  such  as  charcoal,  graphite,  and  coal 
(Reference  54) .  The  determination  of  the  amount  of  organic  material 
present  in  the  soil  is  important  since  many  groundwater  contaminants 
including  hydrazine  (Reference  47)  react  with  organic  material. 

Percent  organic  carbon  was  determined  by  dry  combustion  in 
an  induction  furnace  (LECO  Model  No.  523-300).  A  sample  with  known 
weight  was  placed  in  a  ceramic  crucible  with  iron  and  copper  metal 
accelerator  added.  The  sample  was  heated  inside  an  enclosed  combustion 
tube  through  which  oxygen  was  passed.  All  of  the  carbon  in  the  sample 
was  oxidized  to  CO^ .  Small  particles  were  removed  in  a  dust  trap,  and 
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sulfur  was  absorbed  in  a  sulfur  Crap,  leaving  only  CO^  and  oxygen.  The 
CO^-oxygen  volume  was  measured  in  a  buret  held  at  constant  temperature 
and  corrected  for  pressure.  The  mixture  was  passed  through  a  solution  of 
KOH  in  another  vessel  which  absorbed  all  the  CO^.  The  oxygen  was  brought 
back  to  the  original  buret,  and  the  volume  of  CC^  was  determined  by  sub¬ 
traction  from  the  previous  volume. 

The  dry  combustion  method  described  here  determines  total 
carbon  present  in  the  soil.  Total  carbon  is  the  sum  of  both  organic  and 
inorganic  carbon.  Inorganic  carbon  is  found  in  carbonate  materials  such 
as  calcite,  dolomite,  and  soluble  carbonate  salts,  and  is  not  generally 
found  in  well-leached  soils  of  low  pH  (Reference  54)  .  In  such  soils 
total  carbon  content  is  equivalent  to  organic  carbon  content. 

The  transport  of  water  and  soluble  chemicals  through 
water-saturated  soil  is  dependent  on  physical,  microbiological,  and  chem¬ 
ical  processes.  The  chemical  and  microbiological  processes  act  to  retard 
or  degrade  the  chemical  in  solution  as  it  is  moved  down  gradient  under 
the  influence  of  physical  flow  processes.  Hydrodynamic  dispersion  is  an 
important  physical  process  which  incorporates  diffusion  gradients  and 
velocity  distributions  within  soil  pores.  Dispersion  coefficients  corre¬ 
sponding  to  Darcy  flow  rates  of  0.5  (1.4  x  10  ^  m  s  and  5.0  (14.0  x 
10  ^  m  s  S  cm  h  ^  were  determined  by  using  the  derivation  of  Kirkham  and 
Powers  (Reference  48)  from  data  obtained  by  passing  a  pulse  of  tritiated 
water  (10,000  cpm  in  0.01N  CaCl^)  through  the  soil  columns.  A  scintil¬ 
lation  fluid  (Scintiverse  II)  was  added  to  samples  of  column  effluent 

3 

and  concentrations  of  H^O  were  determined  using  a  Liquid  scintillation 
counter.  Kirkham  and  Powers (Ref erence  48)  differentiate  the  complemen¬ 
tary  error  function  (erfc)  mathematical  solution  to  the  conservative 
solute  transport  equation 

C/Cq  =  0.5  erfc  [uL ( 1-p) /4Dp]  [1] 

to  obtain  the  slope  m  of  the  breakthrough  curve  (BTC)  at  p  =  1  (or  C/C^  = 
0.5)  where  C  is  the  solute  concentration  in  the  effluent,  Cq  is  the  sol¬ 
ute  concentration  of  the  applied  influent  solution,  p  is  the  number  of 
pore  volumes  of  effluent,  u  is  the  pore  water  velocity,  D  is  the  hydro- 
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dynamic  dispersion  coefficient,  and  L  is  the  soil  column  length.  The 
dispersion  coefficient  D  can  thus,  be  determined  from  the  relationship 


D  =  uL/4irm2.  [2] 

The  slopes  of  breakthrough  curves  for  tritiated  water  tracers  were  deter¬ 
mined  and  substituted  into  equation  [2]  to  calculate  the  dispersion 
coefficients  for  each  horizon  at  each  flow  rate. 

Soil  pH  is  very  important  to  the  transport  of  hydrazine  in 
the  soil  environment  since  hydrazine  molecules  are  protonated  to  yield 
hydrazinium  ions  in  an  acidic  aqueous  environment.  In  aqueous  solution 
at  pH  7.96  (i.e.,  the  pK  of  hydrazine)  hydrazine  and  hydrazinium  occur 
in  equal  proportions.  The  protonated  hydrazinium  ions  are  able  to 
undergo  ion  exchange  reactions  on  soil  particle  surfaces,  having  a  poten¬ 
tially  significant  impact  on  the  transport  process. 

The  pH  of  each  soil  horizon  was  determined  by  placing  25  g 
of  soil  in  a  100  mL  beaker,  adding  50  mL  of  0.01  N  CaCl^,  stirring  for 
two  minutes  with  a  magnetic  stirring-bar,  and  reading  the  pH  of  the 
suspension. 

The  acid-buffering  capacity  of  the  three  horizons  of 

Arredondo  fine  sand  was  measured  by  preparing  titration  curves  giving  pH 

for  each  addition  of  Ca(OH)  .  Five  grams  of  soil  and  25  mL  of  CaCl0  were 

z  z 

added  to  a  beaker  and  stirred  for  3  minutes  before  the  pH  was  read. 
Ca(OH)^  was  then  added  in  equal  increments  and  the  pH  noted.  The  CaCOH)^ 
was  previously  titrated  with  0.01  N  potassium  phthalate  to  an  end  point 
of  0.0084  N. 

Concentrations  of  calcium,  aluminum,  magnesium,  iron, 
sodium,  and  potassium  metals  in  the  three  soil  horizons  were  determined 
by  using  flame  atomic  adsorption  spectroscopy  to  chemically  analyze  acid- 
extractions  for  each  soil  material.  Approximately  5-g  samples  of  each 
soil  horizon  were  first  placed  into  a  50-mL  polysulfone  centrifuge  tube 
into  which  was  added  20  mL  of  0,01  M  HNO^.  The  tubes  were  mechanically 
shaken  for  4  hours  at  low  speed,  then  centrifuged  for  10  minutes  at  10°C 
at  10,000  rpm  with  a  2,000  rpm  per  minute  acceleration  rate.  Following 
centrifugation,  supernatant  in  each  tube  was  decanted  into  acid-washed 
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glass  scintillation  vials  and  analyzed  using  an  atomic  adsorption  spec- 
tometer . 

X-ray  diffraction  analysis  was  performed  to  determine  the 
principle  mineral  species  in  each  soil  horizon.  Approximately  500-g 
samples  of  each  horizon  were  wet-sieved  through  a  0.0017-mm  screen  to 
remove  sand  particles.  Approximately  100  mL  of  chlorox  was  added  to  the 
Ap  horizon  filtrate  to  oxidize  soil  organic  material  which  tends  to 
interfere  with  the  X-ray  diffraction  process.  After  2  days  of  oxidation 
time,  30  mL  of  0.5  N  HC1  was  added  to  flocculate  the  clay  minerals.  The 
suspension  was  allowed  to  stand  for  1  day,  then  centrifuged  at  16,000  rpm 
for  6  minutes.  The  centrifugation  process  was  repeated  6  times,  each 
time  collecting  the  supernatant  and  resuspending  the  sediment  in  pH-10 
distilled  water.  Approximately  100  mL  of  saturated  NaCl  was  then  added 
to  flocculate  clay  material.  An  aliquot  of  clay  suspension  was  placed  on 
porous  ceramic  tiles,  and  1  N  MgC^,  KC1,  and  glycerol  were  added  to  the 
tiles  to  allow  differentiation  of  kaolinite  from  the  smectite  clays. 

Published  chemical  analysis  on  samples  of  Arredondo  fine 
sand  by  the  Soil  Conservation  Service  has  revealed  the  soil  to  have  a  low 
Cation  Exchange (Reference  60)  Capacity  (CEC) .  This  analysis  was  con¬ 
firmed  by  determining  the  CEC  of  the  Ap,  El,  and  E2  horizons  of  Arre¬ 
dondo  fine  sand.  Dilutions  were  made  of  a  stock  solution  of  0.001  N 
CaC^-  Forty  mL  of  each  dilution  was  placed  in  a  polysulfone  centrifuge 
tube  along  with  4-g  of  soil  and  shaken  gently  for  4  hours.  The  tubes 
were  centrifuged  for  10  minutes  at  10,00  rpm,  and  the  supernatant  was  anal¬ 
yzed  for  calcium.  The  decrease  in  calcium  concentration  in  the  superna¬ 
tant  was  considered  to  be  adsorbed  onto  the  soil  surface,  and  the  plateau 
of  the  plot  of  calcium  in  solution  versus  adsorbed  calcium  was  considered 
to  be  the  exchange  capacity.  The  CEC  for  the  E2  soil  was  thus,  determined 
to  be  approximately  4.0  mmol(+)  kg  ^  of  soil. 

b.  Miscible  Displacement  Investigations  with  Soil  Columns 

Flow  experiments  were  performed  by  initially  pumpimg  acid¬ 
ified  0.01  N  CaC^  solutions  for  24  hours  into  columns  of  air-dry  soil  in 

order  to  displace  air  from  soil  pores  and  saturate  soil  exchange  sites 
+2 

with  Ca  ions.  Acidified  0.01  N  CaCl^  solutions  containing  a  specified 
concentration  of  hydrazinium  were  pumped  into  each  column  as  either  a 
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pulse  or  as  a  continuous  application  in  order  to  investigate  the  mobility 
of  hydrazinium.  Solutions  were  pumped  with  one  of  two  different  Darcy 
flow  velocities  (q)  to  simulate  high  and  low  velocities  that  might  com¬ 
monly  be  expected  under  field  conditions.  Effluent  aliquots  were  collec¬ 
ted  using  an  automatic  fraction  collector  and  analyzed  for  hydrazinium, 
calcium,  and  pH.  Results  were  graphed  by  plotting  the  relative  concen¬ 
tration  ( C / Cq  where  Cq  was  the  concentration  in  the  applied  solution)  of 
the  effluent  component  of  interest  against  the  number  of  pore  volumes  (p) 
of  effluent.  A  schematic  diagram  of  the  equipment  utilized  in  the 
miscible  displacement  experiments  is  shown  in  Figure  50. 

Bulk  samples  of  the  three  horizons  of  Arredondo  fine  sand 
were  removed  with  a  clean  shovel  from  within  each  horizon  sufficiently 
far  removed  from  the  horizon  boundary  to  preclude  contamination  from 
above  and  below.  Each  bulk  sample  was  sieved  through  a  2-mm  mesh,  on  a 
flat  tray,  air-dried  for  3  days,  well-mixed,  and  then  stored  in  plastic 
buckets  for  later  use. 

Cylindrical  glass  chromatography  columns  30-cm  long  with 

5-cm  inside  diameter  (kontes  No.  420800-3020)  were  hand  packed  to  a  bulk 

-3  -3 

density  of  approximately  1.4  Mg  m  for  Ap  soil  and  1.6  Mg  m  for  El  and 
E2  soils.  These  values  for  bulk  density  were  determined  earlier  for 
Arredondo  fine  sand  by  the  Soil  Conservation  Service. 

Air  initially  present  in  packed  columns  of  air-dry  soil 
was  displaced  by  introducing  a  flowing  stream  of  helium  gas  into  the  top 
of  each  capped  column  for  I  hour  prior  to  wetting  up  with  acidified  0.01 
N  CaCl^  solutions.  Thus,  0^,  N^,  and  CO^  gases  originally  present  within 
soil  pores  were  displaced  out  the  bottom  of  the  columns  and  replaced  by 
nonreactive  helium  gas. 

Helium  gas  in  the  pore  space  of  the  soil  columns  was  then 

displaced  with  liquid  by  pumping  helium-saturated,  acidified  0.01  N  CaCl^ 

into  the  bottom  of  each  column.  Pumping  was  continued  for  at  least  15 

hours  to  assure  a  high  degree  of  liquid  saturation  of  the  soil  pore  space 

2+ 

and  to  insure  replacement  of  exchangeable  cations  with  Ca  on  soil 
exchange  sites.  Aqueous  0.01  N  CaC^  solution  was  deaerated  for  at  least 
2  hours  by  bubbling  helium  gas  into  continuously  stirred  flasks.  Aqueous 
CaCl^  solutions  applied  to  columns  of  Ap,  El,  and  E2  soil  were  acidified 
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by  adding  HC1  to  give  pH  values  of  4.5,  5.0,  and  5.1,  respectively.  Dea¬ 
eration  was  insured  by  taking  dissolved  oxygen  measurements  with  a  cali¬ 
brated  dissolved  oxygen  probe.  A  0.01  N  CaCl2  solution  was  used  to 
approximate  the  ionic  solution  of  natural  groundwater  in  Florida  which  is 
dominated  by  the  calcium  cation.  While  0.01  N  is  a  stronger  solution 
than  is  commonly  found,  it  was  used  to  insure  saturation  of  soil  cation 
exchange  sites  with  calcium.  The  average  soil  water  content  for  each 
column  was  determined  by  weighing  the  entire  column  before  and  after 
wetting  up  and  assuming  that  the  difference  in  the  two  weights  was 
attributable  to  liquid. 

Aqueous  solutions  were  transferred  from  flasks  to  the  soil 

columns  by  a  Gilson  peristaltic  pump  (Gilson  Model  Minipulse  2)  through 

3  -1 

small  diameter  Tygon  tubing.  Pumping  rates  of  101.2  and  10.12  cm  h 
were  used  to  give  Darcy  flow  velocities  of  5  and  0.5  cm  h  1  through  the 
soil  columns.  Flow  rate  calibration  for  the  pump  used  was  made  by  adjus¬ 
ting  pump  speed  to  obtain  the  proper  volume  of  column  effluent  per  unit 
time  as  determined  using  a  graduated  cylinder. 

Hydrazine  hydrate  (N^H^'^O)  was  used  to  prepare  acidified 
0.01  N  CaCl2  influent  solutions  with  low  (6.6  mg  1  ^),  medium  (165  mg 
1  *),  and  high  (660  mg  1  S  concentrations  C  of  hydrazinium  (N  hT)  . 
Preliminary  column  work  showed  that  pulses  of  660  mg  1  hydrazinium  sol¬ 
utions  applied  to  soil  columns  were  sufficiently  concentrated  to  over¬ 
whelm  most  of  the  soil  attachment  sites  and  sorption/degradation  proces¬ 
ses,  while  165  mg  1  ^  hydrazinium  solutions  appeared  to  give  definable 
BTC  for  hydrazinium.  Application  of  6.6  mg  1  *  solutions  of  hydrazinium 
resulted  in  severe  retardation  and  removal  of  N2H*  from  the  solution 
phase  of  the  soil.  The  pH  of  the  applied  hydrazinium  solutions  was 
adjusted  to  pH  4.5  for  Ap  soil,  5.0  for  El  soil,  and  5.1  for  E2  soil  by 
the  addition  of  HC1,  since  each  of  the  three  horizons  was  acidic.  The 
relative  proportions  of  hydrazine  and  hydrazinium  in  aqueous  solution  can 
be  determined  from  the  relationship: 


c/c1  =  io7'96  pH 


l  3] 


,4" 


where  C  and  are  the  concentrations  for  N^H^  and  N?H,.,  respectively, 
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and  7.96  is  the  pk  value  for  the  chemical  reaction 

a 

N2H4  +  H20  *  N2hJ  +  OH”  [4] 

A  plot  of  the  relationship  of  the  pH  to  the  percent  hydrazinium  illus¬ 
trates  the  mathematical  relationship.  In  the  soil  pH  range  from  4.86  to 
5.05  the  hydrazine  solution  is  found  to  be  approximately  99.9  percent 
hydrazinium. 

Acidified  0.01  N  CaCl2  solutions  with  a  specified  concen¬ 
tration  Cq  of  hydrazinium  at  the  two  flow  rates  were  pumped  into  the  bot¬ 
tom  of  each  column  either  as  a  pulse  of  2-pore  volume  width  or  as  a  con¬ 
tinuous  input.  Pulse  inputs  were  followed  by  application  of  acidified 
0.01  N  CaCl2  solution  with  Cq  =  0.  Application  of  influents  as  a  pulse 

allowed  an  observation  of  ascending  and  descending  limbs  for  each  BTC  for 
+  2+  + 

N2Hy  Ca  and  H  in  column  effluent,  thus,  giving  valuable  insight  about 
the  kinetic  nature  of  reversible  hydrazinium  sorption  processes.  A  break¬ 
through  curve  from  a  continuous  input  provided  valuable  information  about 
irreversible  processes  of  chemisorption  and  degradation. 

A  fraction  collector  (ISC0  Model  Retriever  II)  was  posi¬ 
tioned  to  collect  effluent  emerging  from  small  diameter  Tygon  tubing  con¬ 
nected  to  the  top  of  the  soil  column.  During  the  high  flow  rate,  glass 
test  tubes  with  10-mm  diameter  were  automatically  moved  under  the  emerg¬ 
ing  stream  of  effluent  at  9-minute  intervals,  thus , collecting  approxi¬ 
mately  15  mL  of  effluent  per  tube,  or  about  13  tubes  per  pore  volume  of 
solute.  One  mL  of  1  N  HC1  was  added  to  alternate  test  tubes  to  ensure 
that  hydrazine  existed  in  the  stable  hydrazinium  form.  Nonacidified 
tubes  were  examined  for  pH  and  calcium  concentrations. 

For  the  low  liquid  flux  (q  =  0.5  cm  h  *)  treatment,  12-mm 
diameter  test  tubes  were  used  to  collect  fractions  at  2-hour  intervals. 
Each  tube  contained  approximately  20  mL  of  effluent,  or  about  10  tubes 
per  pore  volume.  Again,  one  mL  of  IN  HC1  was  added  to  alternate  test 
tubes.  Nonacidified  tubes  wete  examined  for  pH  and  calcium  concentra¬ 
tions  . 

Hydrazine  analysis  was  performed  using  a  modification  of 
the  method  of  Waats  and  Chrisp  (Reference  32)  .  Small  aliquots  of  col- 
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lected  fractions  were  placed  into  a  25-mL  volumetric  flask  along  with  15 
ml  of  p  -  Dimethylaminobenzaldehyde  (PDBA) .  Hydrazine  reacts  with  PDBA 
to  form  an  intense  orange  color  proportional  to  the  concentration  of 
hydrazine  present.  The  solution  was  diluted  and  stabilized  by  the  addi¬ 
tion  of  IN  HC1  to  bring  the  volume  up  to  25  mL  The  color  intensity  was 
read  with  a  spectrophotometer  (Perkin  Elmer,  Coleman  54B)  as  percent 
transmission  and  then  converted  to  absorbance.  Hydrazine  standard  solu¬ 
tions  were  prepared  with  known  concentrations  and  also  read  along  with 
the  effluent  fractions.  Effluent  sample  concentration  was  interpolated 
from  the  standard  curve. 

Calcium  analysis  of  the  effluent  was  performed  by  atomic 
adsorption  spectrometry  (Perkin  Elmer  flame  spectrophotometer  Model  460) . 
Effluent  samples  were  diluted  1  to  200  and  absorbance  was  determined 
using  a  nitrous  oxide  flame.  Interpolation  of  calcium  concentration  was 
made  from  a  standard  curve  run  at  the  same  time  as  the  samples  of  efflu¬ 
ent.  A  determination  of  pH  was  made  using  a  calomel  electrode  (Ross  No. 
2222  on  an  Orion  meter  No.  333)  as  effluent  fractions  were  collected. 

Analysis  of  the  data  obtained  from  each  column  effluent 

fraction  was  facilitated  by  plotting  relative  concentration  (C/Cq)  of 

N^H^  in  the  effluent  versus  the  number  of  pore  volumes  of  column  effluent 

(p  =  8/8  where  B  is  the  cumulative  volume  of  effluent  and  B  is  the 
r  o  o 

volume  of  water  present  in  the  water-saturated  soil  column).  At  the  time 
hydrazinium  analysis  was  performed  on  samples  of  column  effluent,  analy¬ 
sis  of  concentrations  (C  )  of  influent  solutions  was  performed  for  ali- 

o 

quots  saved  from  flasks  containing  input  solution.  The  hydrazinium 
concentration  determined  on  each  effluent  fraction  was  divided  by  the 
concentration  of  the  input  solution  to  establish  a  relative  scale  with  a 
maximum  value  of  1 , 

2+ 

Breakthrough  curves  were  also  prepared  for  Ca  concentra¬ 
tions  and  pH  of  column  effluent.  The  resulting  breakthrough  curves  of 
solutes  in  column  effluent  reveal  important  information  about  the  dyna¬ 
mics  of  physical  and  chemical  interactions  within  the  column  as  solute 
moves  through  the  pores  of  the  soil  and  emerges  in  the  effluent. 
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Ap 

0.0 

3.0 

21.6 

57.3 

8.2 

90.1 

7.3 

2.6 

El 

0.0 

1.5 

21.6 

54.2 

16.1 

93.4 

4.9 

1.7 

E2 

0.0 

3.3 

29.6 

50.1 

11.5 

94.5 

3.7 

1.8 

The 

analysis 

of 

Arredondo 

fine  sand  revealed  that 

the 

highest 

organic 

carbon  content 

occurred 

in  the 

surface  Ap 

horizon 

and  was  much 

less  in  successively  deeper  soil  horizons.  The  upper  horizon  contained 
1.84  percent  organic  carbon  compared  to  0.34  and  0.14  percent  for  the  El 
and  E2  horizons,  respectively.  While  these  precentages  are  low,  it  is 
significant  to  note  that  the  Ap  horizon  contains  approximately  six  times 
as  much  organic  carbon  as  the  next  lower  horizon. 

3 

Hydrodynamic  dispersion  coefficients  D  obtained  by  displacing  H^O 
solute  tracer  through  columns  of  Ap,  El  and  E2  Arredondo  soil  are  given 
in  Table  38  for  Darcy  liquid  velocities  of  0.5  and  5  cm  h  ^ .  In  general, 
relatively  small  values  for  D  were  obtained  indicating  sharp  BTC  for  con¬ 
servative  solutes. 
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TABLE  38.  HYDRODYNAMIC  DISPERSION  COEFFICIENTS  D  OF  3H20  IN  Ap ,  El  AND 
E2  ARREDONDO  SOIL  HORIZONS 


Soil 


Horizon 

Darcy 

Flow  Velocity  q 

q  =  0.5  cm  h 

1  c  n  k"1 

q  =  5.0  cm  h 

,  2  -1 
(cm  s  ) 

,  2  -1 
(cm  s  ) 

Ap 

2.5  X  10~4 

8.0  X  10-4 

El 

3.0  X  10~4 

4.5  X  10-4 

E2 

5.5  X  10~4 

9.0  X  10“4 

The  dispersion  coefficients  were  verified  by  substituting  them  into  the 
convective  dispersion  equation  for  a  conservative  or  nonreactive  solute: 

3C/3t  =  D32C/3x2  -  u3C/3x  [5] 

and  comparing  calculated  results  (Figures  51  and  52)  with  experimentally 
determined  BTC  for  tritiated  water  in  the  column  effluent. 

The  three  horizons  of  Arredondo  fine  sand  were  found  to  be  acidic, 
therefore,  N0H+  was  the  prevalent  form  of  hydrazine  under  water-saturated 

L.  J 

soil  conditions.  Measured  pH  values  of  the  soil  suspensions  for  Ap,  El 
and  E2  Arredondo  soil  were  4.45,  4.98,  and  5.10,  respectively. 

Titration  curves  for  the  Arredondo  soil  are  given  in  Figure  53. 
None  of  the  three  curves  show  the  characteristic  sigmoid  shape  indicative 
of  a  buffered  plateau  with  less  buffered  regions  on  either  side.  The 
titration  curve  of  the  Ap  horizon  has  a  smaller  slope  than  that  of  the  El 
horizon,  indicating  less  susceptibility  to  pH  change  by  increasing 
amounts  of  CaCOH)^.  The  order  of  buffering  capacity  of  the  three  hori¬ 
zons  was  Ap  >  El  >  E2  with  none  of  them  possessing  a  strong  buffering 
capacity . 

Chemical,  analysis  performed  on  acid  extractions  of  soil  samples 
(Table  39)  indicate  a  predominance  of  calcium  and  aluminium  elements. 
Concentrations  of  all  elements  were  in  the  order  Ap  >  El  >  E2  for  the 
three  soil  horizons. 
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Fig  51.  Experimental  (Open  Circles)  and  Least-Squares  Fit 

(Smooth  Curves)  BTC  for  Tritiated  Water  in  Effluent 
from  Columns  of  Ap ,  Ely  and  E2  Arredondo  Soil  with 
Liquid  Flux  q  =  5  cm  h 
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Fig  52.  Experimental  (Open  Circles)  and  Least-Square  Fit 

(Smooth  Curves)  BTC  for  Tritiated  Water  in  Effluent 
from  Columns  of  Ap,  El,  ^and  E2  Arredondo  Soil  with 
Liquid  Flux  q  =  0.5  cm  h 
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TABLE  39.  CHEMICAL  ANALYSIS  OF  ARREDONDO  SOIL  FROM  Ap,  El, 
AND  E2  HORIZONS 


Element  Concentration 


Ap  Soil 
(g  Mg"1) 

El  Soil 
(g  Mg"1) 

E2  Soil 
(g  Mg  !) 

Calcium 

561 

29 

16 

Magnesium 

24 

4 

4 

Sodium 

24 

7 

8 

Potassium 

19 

7 

5 

Iron 

78 

77 

46 

Aluminum 

691 

359 

140 

X-ray  analysis  of 

the  clay 

films  from  Ap,  El 

,  and  E2  Arredondo  soil 

revealed  peaks  (Figure 

54)  at  angles  corresponding  to  the  D-spacing  of 

kaolinite.  No  smectite 

c lays  or 

significant  mineral  oxides  were  found. 

Descriptive  data 

for  soil 

columns  used  in 

miscible  displacement 

experiments  is  given  it 

i  Table  4C 

1.  A  total  of  32 

soil  columns  were  used 

- 8  for  Ap  soil,  12  for  El  soil  and  12  for  E2  soil.  Treatments  for 

each  soil  included  three  concentrations,  Cq,  of  hydrazinium  (low,  medium, 

and  high)  in  applied  influent,  two  Darcy  fluxes  (low  and  high),  and  two 

methods  for  applying  the  hydrazinium  solutions  (pulse  and  continuous). 

Values  for  soil  bulk  density,  c,  and  volumetric  water  contents,  9,  for 

soil  columns  is  given  in  Table  41.  Experimentally-determined  pH  and  con- 

+  2+ 

centrations  o'  N2H5  an<*  co^umn  effluent  are  reported  in  (Figures 

68-75  in  Appendix)  for  Ap  soil,  (Figures  76-83  in  Appendix)  for  El  soil 
and  (Figures  84-91  in  Appendix)  for  E2  soil.  Soil  columns  designated  as 
1  through  4  in  Table  40  for  Ap  soil  with  influent  having  low  concentra¬ 
tion  of  hydrazinium  were  not  used  in  miscible  displacement  experiments. 

Incomplete  recoveries  (ratios  of  quantities  of  N^H*  removed  from  the 
soil  in  effluent  to  quantities  applied  in  influent)  of  hydrazinium  (Table 
h2)  in  effluent  from  soil  columns  indicate  that  the  chemical  was  undergo¬ 
ing  a  degree  of  irreversible  removal  or  chemisorption  by  soil  components 
as  the  influent  was  displaced  through  the  columns.  For  each  soil,  recov¬ 
eries  of  hydrazinium  were  less  when  q  was  0.5  cm  h  1  than  when  q  was  5  cm 
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9 
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TABLE  40.  DESCRIPTIVE  INFORMATION  FOR  MISCIBLE  DISPLACEMENT  OF  HYDRAZIN IUM  INFLUENT  T11R0UCI1  COLUMNS  OF  ARREDONDO 
FINE  SAND.  VARIABLES  INCLUDE  3  SOIL  HORIZONS  (Ap,  El,  AND  E2) ,  3  HYDRAZIN IUM  CONCENTRATIONS  C  IN 
APPLIED  INFLUENT  (L  =  LOW,  M  -  MEDIUM,  AND  H  =  HIGH),  TWO  VALUES  FOR  q  (L  =  LOW  AND  II  =  HIGH),' AND  2 
METHODS  OF  INFLUENT  APPLICATION  (P  =  PULSE  AND  C  =  CONTINUOUS).  (Concluded) 
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TABLE  41.  PERTINENT  PARAMETERS  FOR  MISCIBLE  DISPLACEMENT  EXPERIMENTS.  SOIL  PARTI¬ 
CLE  DENSITY  OF  2.65  Mg  m”3  WAS  ASSUMED  IN  ORDER  TO  ESTIMATE  POROSITY  f 
USING  f  =  100  (1-  p/2.65). 


Column 

Designator 

Bulk 

Density 

(Mg  m  3) 

Estimated 

Porosity 

f 

,  3  -3. 

(mm) 

Soil 

Water 

Content 

(m3  m  3) 

Degree 

Water 

Saturation 

e/f 

(percent) 

Pore 

Water 

Velocity 

u 

(cm  h  *) 

1 

no  data 

2 

tt 

It 

3 

ft 

If 

4 

ft 

ft 

5 

1.43 

0.46 

0.36 

78 

1.39 

6 

1.42 

0.46 

0.27 

59 

1.85 

7 

1.47 

0.55 

0.28 

51 

17.9 

8 

1.46 

0.45 

0.30 

67 

16.7 

9 

1.44 

0.46 

0.33 

72 

1.52 

10 

1.44 

0.46 

0.24 

52 

2.08 

11 

1.42 

0.46 

0.30 

65 

16.7 

12 

1.46 

0.45 

0.25 

56 

20.0 

13 

1.61 

0.39 

0.26 

67 

1.92 

14 

1.61 

0.39 

0.22 

56 

2.27 

15 

1.56 

0.41 

0.28 

68 

17.9 

16 

1.61 

0.39 

0.26 

67 

19.2 

17 

1.63 

0.38 

0.26 

68 

1.92 

18 

1.59 

0.40 

0.24 

60 

2.08 

19 

1.59 

0.40 

0.26 

65 

19.2 

20 

1.61 

0.39 

0.23 

59 

21.7 

21 

1.62 

0.39 

0.25 

64 

2.00 

22 

1.60 

0.39 

0.24 

62 

2.08 

23 

1.59 

0.40 

0.27 

68 

18.5 

24 

1.61 

0.39 

0.26 

67 

19.2 

25 

1.64 

0.38 

0.26 

68 

1.92 

26 

1.60 

0.40 

0.25 

63 

2.00 
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TABLE  41.  PERTINENT  PARAMETERS  FOR  MISCIBLE  DISPLACEMENT  EXPERIMENTS.  SOIL  PARTI¬ 
CLE  DENSITY  OF  2.65  Mg  in  WAS  ASSUMED  IN  ORDER  TO  ESTIMATE  POROSITY  f 


USIimG  F  =  100  (1- 

-p/2.65) 

( concluded) 

27 

1.63 

0.38 

0.24 

63 

20.8 

28 

1.63 

0.38 

0.25 

66 

20.0 

29 

1.65 

0.38 

0.23 

61 

2.17 

30 

1.61 

0.39 

0.26 

67 

1.92 

31 

1.65 

0.38 

0.24 

63 

20.8 

32 

1.63 

0.38 

0.25 

66 

20.0 

33 

1.62 

0.39 

0.27 

69 

1.85 

34 

1.63 

0.38 

0.25 

66 

2.00 

35 

1.63 

0.38 

0.25 

66 

20.00 

36 

1.63 

0.38 

0.25 

66 

20.00 

TABLE  42. 

RELATIVE  RECOVERIES  (100 

TIMES  THE  RATIOS 

OF  QUANTITIES 

OF  SOLUTE 

APPLIED  IN  INFLUENT  AND  QUANTITIES  ELUTED 

IN  EFFLUENT) 

OF  HYDRAZINIUM  IN 

SOIL  COLUMN 

EFFLUENT.  THREE . LETTERS  ARE 

USED  AS  TREATMENT  DESIGNATORS 

FOR  SOIL  COLUMNS.  THE 

FIRST  LETTER  IS  THE  CONCENTRATION,  C  ,  OF 

o 

INFLUENT  (L 

-  LOW,  M  = 

MEDIUM,  AND  H  * 

HIGH) ,  THE 

SECOND  LETTER  IS 

LIQUID  FLUX 

q  (L 

-  LOW  AND  H  *  HIGH),  AND 

THE  THIRD  LETTER  IS  THE  METHOD 

OF  INFLUENT 

APPLICATION  (P  =  PULSE  AND  C  = 

CONTINUOUS) . 

Recovery 

Column 

Soil 

Treatment 

Hydrazinium 

Designator 

Horizon  Designator 

(percent) 

1 

Ap 

LLP 

no  data 

2 

»» 

L  L  C 

II 

3 

ft 

LHP 

II 

4 

It 

LHC 

II 

5 

II 

M  L  P 

0 

6 

II 

M  L  C 

38.2 

7 

f» 

M  H  P 

0 

8 

II 

M  H  C 

59.3 

9 

II 

H  L  P 

17.9 

f 
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RELATIVE  RECOVERIES  (100  TIMES  THE  RATIOS  OF  QUANTITIES  OF  SOLUTE 

APPLIED  IN  INFLUENT  AND  QUANTITIES  ELUTED  IN  EFFLUENT)  OF  HYDRAZIN1UM 

IN  SOIL  COLOMN  EFFLUENT.  THREE  LETTERS  ARE  USED  AS  TREATMENT  DESIGNATORS 
FOR  SOIL  COLUMNS.  THE  FIRST  LETTER  IS  THE  CON CENT RATH ON ,  CQ,  OF 

INFLUENT  (L  =  LOW , ' M  =  MEDIUM,  AND  H  =  HIGH) THE  SECOND  LETTER  IS 

LIQUID  FLUX  q  (L  =  LOW  AND  H  =  HIGH),  AND  THE  THIRD  LETTER  IS  THE  MEHTOD 
OF  INFLUENT  APPLICATION  (P  =  PULSE  AND  C  =  CONTINUOUS) .( Concluded) 

10 

II 

H 

L 

C 

38.2 

11 

ff 

H 

H 

P 

51.8 

12 

11 

H 

H 

C 

48.9 

13 

El 

L 

L 

p 

0 

14 

11 

L 

L 

C 

0 

15 

If 

L 

H 

p 

0 

16 

ft 

L 

H 

C 

0.9 

17 

11 

M 

L 

p 

31.7 

18 

It 

M 

L 

c 

58.7 

19 

t» 

M 

H 

p 

63.7 

20 

If 

M 

H 

c 

88.1 

21 

It 

H 

L 

p 

76.0 

22 

It 

H 

L 

c 

95.6 

23 

11 

H 

H 

p 

84.4 

24 

11 

H 

H 

C 

92.3 

25 

E  2 

L 

L 

p 

0 

26 

11 

L 

L 

c 

31.2 

27 

11 

L 

H 

p 

40.2 

28 

II 

L 

H 

c 

44.0 

29 

11 

M 

L 

p 

79.7 

30 

If 

M 

L 

c 

75.9 

31 

11 

M 

H 

p 

79.1 

32 

ft 

M 

H 

c 

79.2 

33 

11 

H 

L 

p 

92.6 

34 

It 

H 

L 

c 

92.5 

35 

II 

H 

H 

p 

114.6 

36 

11 

H 

H 

c 

81.6 

h-^.  This  result  was  expected  since  the  smaller  liquid  flux  gives  a  ten¬ 
fold  greater  residence  time  in  the  column  compared  to  the  larger  flux  and 
thus  permits  greater  opportunity  for  chemisorption  to  occur.  This  result 
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strongly  implies  that  the  irreversible  chemisorption  behaved  as  a  kinetic 
reaction.  The  order  of  hydrazinium  recoveries  in  column  effluent  was 
generally  in  the  order  Ap  <  El  <  E2  which  was  related  to  the  relative 
contents  of  organic  carbon  in  these  soil  horizons. 

For  each  soil,  recoveries  of  hydrazinium  in  column  effluent  tended 
to  be  the  highest  when  the  high  concentration  influent  was  applied.  When 
influent  contained  high  hydrazinium  concentrations,  recoveries  ranged 
from  18  to  52  percent  for  Ap  soil,  76  to  96  percent  for  El  soil,  and  82 
to  100  percent  for  E2  soil.  When  influent  contained  medium  hydrazinium 
concentrations,  recoveries  ranged  from  0  to  59  percent  for  Ap  soil,  32  to 
88  percent  for  El  soil,  and  76  to  80  percent  for  E2  soil.  Recoveries 
ranged  from  0  to  0.9  percent  for  El  soil  when  influent  contained  low 
hydrazinium  concentration  and  ranged  from  0  to  44  percent  for  12  soil. 
Thus  irreversible  chemisorption  appeared  to  be  inversely  related  to  the 
concentration  of  hydrazinium  applied  as  influent. 

Hydrazinium  recovery  in  column  effluent  also  was  generally  greater 
for  conditions  where  hydrazinium  solutions  were  applied  continuously  for 
a  large  number  of  pore  volumes  of  effluent  versus  conditions  where  hydra¬ 
zinium  solutions  were  applied  as  a  wide  pulse  for  a  relatively  small  num¬ 
ber  of  pore  volumes  of  effluent.  Acidified  solutions  of  0.001  N  CaCl„ 

+  ^ 
solutions  without  any  were  applied  with  a  pump  to  each  column  after 

a  pulse  of  N^H,.  solution  had  been  applied.  Recoveries  observed  by  pulse 

and  continuous  applications  of  medium  concentration  influent  with  high 

liquid  flux  were  0  and  59  percent,  respectively  for  Ap  soil,  64  and  88 

percent  for  El  soil,  and  79.1  and  79.2  percent  for  E2  soil. 

Breakthrough  data  for  hydrazinium  in  column  effluent  (Figures  68-91 
in  Appendix)  showed  that  ^H*  cations  were  most  mobile  in  the  E2  soil, 
less  mobile  in  the  El  soil  and  considerably  less  mobile  in  the  Ap  surface 
soil.  Hydrazinium  BTC  for  El  and  E2  soil  columns  that  received  high 

"f* 

concentration  influent  was  characterized  by  early  appearance  of  h’^H^ 
cations  in  the  effluent,  sharp  initial  portions  of  the  curve,  and  rela¬ 
tively  high  maximum  concentrations.  In  contrast,  hydrazinium  BTC  for  Ap 
soil  columns  that  received  high  concentration  influent  was  characterized 
by  delayed  appearance  of  N7H^  in  the  effluent,  more  diffuse  initial 
portions  of  the  curve,  and  lower  maximum  concentrations.  The  general 


156 


order  of  hydrazinium  mobility  in  each  soil  for  different  concentrations, 

C  ,  of  hydrazinium  in  applied  influent  was:  high  C  >  medium  C  >  low 
0  o  o 

C  .  As  expected  for  kinetically-driven  sorption  processes,  the  mobility 
+ 

of  applied  N0H_  was  enhanced  in  each  soil  by  increasing  Darcy  liquid  flux 

from  0.5  to  5.0  cm  h 
2+ 

BTC  for  Ca  in  effluent  from  E2  soil  (Figures  84-91  in  Appendix) 

were  obviously  related  to  hydrazinium  BTC  and  indicate  that  some  of  the 

exchangeable  Ca"  ions  were  replaced  by  cations  by  cation  exchange 

as  hydrazinium  influent  was  displaced  through  the  columns.  When  high 

concentration  influent  was  applied  continuously,  the  breakthrough  of  N-H* 

in  the  effluent  was  preceded  by  a  peak  in  the  Ca"  BTC.  When  influent 

2+ 

was  applied  as  a  pulse,  the  Ca  BTC  was  characterized  with  a  peak  prior 
to  hydrazinium  breakthrough  as  well  as  a  trough  with  a  minimal  concentra- 

tion  that  occurred  after  the  hydrazinium  breakthrough.  The  Ca"  peak  was 

2+  + 
associated  with  exchangeable  Ca  cations  being  replaced  with 

2+  "  + 
cations  and  the  Ca  breakthrough  was  associated  with  exchangeable  N  H„ 

+2  ^  3 
cations  being  replaced  with  Ca  ions.  The  magnitude  of  the  peaks  and 

+2 

breakthroughs  for  Ca  BTC  were  much  less  detectable  for  effluent  solu¬ 
tions  with  medium  and  low  concentrations  of  ^H*. 


When  hydrazinium  influent  was  applied  continuously  to  soil  columns, 
a  rather  sharp  decrease  in  pH  occur ’.ed  as  h^H^  cations  first  appeared  in 
the  effluent.  For  pulse  applications  of  influent,  pH  also  increased 
sharply  as  hydrazinium  concentration  in  the  effluent  sharply  decreased. 
The  decrease  in  pH  (increase  in  hydrogen  ion  activity)  was  attributed  to 
exchangeable  H+  ions  being  replaced  with  N„H+  cations  in  the  incoming 

influent.  The  increase  in  pH  was  attributed  to  exchangeable  N^H,  being 

+  "  ^ 
replaced  with  H  ions. 

Aqueous  acidic  0.01N  CaCl^  solutions  with  specificed  hydrazinium 
concentration,  Cq,  were  miscibly  displaced  through  30-cm  long  columns  of 
water-saturated  Arredondo  fine  sand  under  conditions  of  steady  liquid 
flux  in  order  to  assess  the  influence  of  pore  water  velocity  u,  of 
input  hydrazinium  solutions,  and  two  methods  of  application  of  input 
solution  upon  the  transport  of  hydrazinium.  Darcy  flow  velocities  of 

approximately  0.5  and  5.0  cm  h  ^  corresponded  roughly  to  pore  velocities 

-1  3-3 

of  2  and  20  cm  h  where  soil  water  content  was  about  0.25  cm  cm  .  Pore 
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velocities  of  2  and  20  cm  h  provided  residence  times  of  about  15  and 

1.5  hours,  respectively,  within  a  30-cm  length  soil  column.  Low  (C  = 

-1  -1  -1  0 

6.6  mg  1  ),  medium  (Cq  =  165  mg  1  )  and  high  (C  =  660  mg  1  )  hydrazi- 

nium  concentrations  were  applied  as  input  solutions.  Two  methods  of 
application  were  used:  continuous  (a  step-function  increase  from  zero 
concentration  in  input  solution  to  C  )  and  pulse.  Columns  were  hand- 
packed  with  soil  material  from  Ap,  El,  and  E2  horizons  from  a  profile  of 
Arredondo  fine  sand.  Although  the  hand-packed  columns  represent 
physically-modified  soil  with  respect  to  soil  structure,  their  use 
provided  a  convenient  means  to  investigate  the  fate  and  transport  of 
hydrazinium  in  cylindrical  bulk  volumes  of  chemically  and  physically 
homogenous  soil  taken  from  the  three  profile  horizons  of  primary  inter¬ 
est. 

Experimental  BTC  for  hydrazinium  in  effluent  from  soil  columns  of 
Arredondo  fine  sand  revealed  that  mobility  of  applied  hydrazinium 
increased  with  increasing  pore  water  velocity  and  with  increasing  Cq  In 
applied  solution.  Similar  behavior  typically  occurs  with  other  reactive 
chemicals  such  as  orthophosphate  (references  50,  51,  59)  when  applied  to 
sandy  soils. 

Relative  mobility  of  hydrazinium  applied  as  influent  to  columns  of 

water-saturated  Arredondo  soil  differed  with  soil  taken  from  different 

horizons  in  the  profile.  Mobility  of  applied  hydrazinium  increased  with 

increasing  depth  of  the  soil  horizons.  Minimal  mobility  occurred  in 

columns  of  Ap  surface  soil  which  had  the  highest  contents  of  organic 

matter  and  clay  minerals  and  was  maximal  in  columns  of  E2  subsoil. 

Hydrazinium  mobility  was  intermediate  for  the  El  subsoil  horizon. 

For  hydrazinium  BTC  from  columns  of  all  three  soil  profile  horizons 

which  received  influent  solutions  with  the  highest  C  (660  mg  1  )  ,  the 

o 

occurrence  of  early  breakthrough  (less  than  2  pore  volumes)  in  the  efflu¬ 
ent  as  well  as  steep  curves  immediately  following  initial  breakthrough 
indicated  high  mobility  of  the  solute  during  transport.  Considerable 
tailing  of  BTC's  for  both  pulse-  and  continuous-applications  of  influent 
indicated  that  kinetic  reaction  mechanisms  were  operative  in  controlling 
the  hydrazinium  concentration  in  the  solution  phase  of  the  soil.  Incom¬ 
plete  recovery  of  applied  hydrazinium  in  the  eff'uent  revealed  that  some 
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of  the  solute  was  removed  irreversibly  during  miscible  displacement  of 
the  influent. 


Fractional  recoveries  of  applied  hydrazinium  ions  in  effluent  from 
columns  of  El,  E2  and  Ap  soil  materials  were  especially  low  when  the 
influent  had  the  low  hydrazinium  concentration  (6.6  mg  1  ^).  Influent 
pulses  with  low  Cq  resulted  in  no  elution  of  ions  from  columns  of  Ap 

soil.  Low  recoveries  also  occurred  when  medium  concentration  (165  mg 
1  influent  was  applied  to  the  Ap  topsoil.  Thus,  quantities  of  hydra¬ 
zinium  irreversibly  removed  from  the  soil  solution  during  displacement  of 
influent  through  soil  columns  were  directly  related  to  contents  of 
organic  matter  and  clay  minerals  in  the  soil  matrix.  For  all  soil  hori¬ 
zons  and  all  C  in  influent,  tenfold  increases  in  pore  water  velocity 
0  -1 

from  approximately  2  to  20  cm  h  generally  increased  fractional  recover¬ 
ies  of  and  gave  initially  steeper  slopes  in  the  BTC.  This  observa¬ 

tion  indicates  that  the  shorter  solute  residence  time  provided  less  time 

for  the  kinetic  reactions  between  hydrazinium  and  soil  components. 

2+  + 

Breakthrough  curves  for  Ca  and  H  ions  in  effluent  for  each  column 

were  observed  to  be  related  to  hydrazinium  BTC.  When  influent  with  high 

Cq  was  applied  to  soil  columns,  initial  breakthrough  of  in  the 

effluent  was  preceded  by  an  increase  in  H+  concentration  (i.e.,  a 

2+ 

decrease  in  pH)  which  in  turn  was  preceded  by  an  increase  in  Ca  concen¬ 
tration.  This  observation  implies  heavily  that  the  BTC's  for  these  three 
cation  species  were  at  least  partially  related  by  the  physical  process  of 


ion  exchange.  A  further  implication  is  that  soil  exchange  sites  exhi- 

+  2+ 

bited  the  following  order  of  preference  for  the  3  ion  species:  H  >  Ca 
+  2+ 

>  Equivalent  fractions  of  Ca  ion  species  in  the  soil  solution 

initially  (Table  43)  exceeded  99.6  percent  whereas  it  was  only  33.3 


percent  in  the  displacing  influent  which  contained  66.6  percent  equiva¬ 
lent  fraction  of  N  H+  ions  for  the  case  of  high  C  .  Thus  the  ratio  of 

1  +  2+  0 

equivalent  fractions  of  ^Hj.  and  of  Ca  in  the  influent  was  approxi¬ 
mately  2.0  which  provided  a  mass-action  effect  that  permitted  the 
applied  N^H ^  ions  in  solution  to  competitively  exchange  with  Ca^+  and  H+ 
ions  initially  present  on  the  soil  exchange  sites.  Recent  work  by  Rhue 


and  Mansell  (reference  56)  has  shown  that  H  ions  can  provide  important 
ternary  effects  upon  binary  exchange  between  Na  and  Ca  as  well  as  K 
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TABLE  43.  EQUIVALENT  FRACTIONS  OF  Ca2+,  N^H*.  AND  H+  ION  SPECIES  IN 

COLUMN  INFLUENT  WITH  CONCENTRATIONS  C  OF  0,  6.6,  165,  AND 

-1  0 
660  mg  1  .ALL  SOLUTIONS  CONTAINED  0.01  N  CaCl2  AND  pH  WAS 

ADJUSTED  TO  4.5.  CONCENTRATIONS  RATHER  THAN  ACTIVITIES 

WERE  USED  IN  CALCULATIONS. 


Influent 

Concentration  of 

Influent 

+ 

Molarity 

n2h5 

of  N2H5 

(mg  1  L) 

_3 

(mmol(+)  cm 

0 

1 .  033x10*" 2 

6.6 

1 . 023xl0~2 

165 

1 . 503xl0~2 

660 

3.003xl0~2 

Equivalent 
Species  in 

Fraction  of 
Influent 

Ion 

Ca2+ 

N2H5 

H+ 

percent 

percent 

percent 

99.694 

0 

0.306 

97.762 

1.955 

0.309 

66.534 

33.267 

0.210 

33.300 

66.600 

0.105 

2+ 

and  Ca  ion  species  in  acid  soil  systems.  In  Cecil  soil,  pH-dependent 
charge  sites  in  the  exchange  complex  were  shown  to  have  a  greater  affin¬ 
ity  for  divalent  Ca  than  for  monovalent  Na+  or  K+.  Ca  ions  were  there¬ 
fore  expected  to  displace  more  exchangeable  H+  ions  than  would  Na+  or  K+. 
A  mathematical  model  for  describing  ion  transport  and  multicomponent  ion- 
exchange  in  soil  columns  was  recently  modified  (reference  52)  jo  permit 

the  use  of  variable  exchange  selectivity  coefficients.  The  modified 

2+  2+ 

model  was  observed  to  simulate  a  ternary  ion  system  with  Ca  ,  Mg  and 
Na+. 


When  influent  solutions  with  low  and  medium  concentrations  of  N„H  + 

2+  + 

were  applied  to  soil  columns,  BTC's  for  Ca  and  H  showed  increasing 

concentrations  of  these  species  prior  to  N2H^+  BTC  but  the  magnitudes  of 

these  increases  were  much  less  than  that  for  high  C  .  This  effect  was 

0  +  2+ 

expected  since  the  ratios  of  equivalent  fractions  of  N?H^  and  Ca  ion 

species  in  the  low  and  medium  concentration  influent  solutions  were  only 

0.199  and  0.500,  respectively.  Thus ,  N  H*  would  be  expected  to  be  much 

2+ 1  ^  + 

less  competitive  for  exchange  with  Ca  and  H  ions  present  in  the  soil 
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exchange  complex  for  these  influents  relative  to  that  for  influent  with 

+  2+ 

high  Cq  where  the  ratio  of  equivalent  fractions  of  and  Ca  was 

2.00. 

Hvdraziniura  BTC  presented  in  this  report  as  well  as  by  Downs  et  al 
(reference  45)  and  Mansell  et  al  (reference  52)  provide  important  first¬ 
time  experimental  data  that  shows  that  N0H*  applied  to  columns  of  acid 
sandy  Arredondo  soil  was  in  fact  transported  through  the  soil  under  lab¬ 
oratory  conditions  of  steady  flow  and  water-saturation  of  the  porous 
media.  The  relatively  high  mobility  of  this  toxic  chemical  for  condi¬ 
tions  of  high  pore  water  velocity  and  high  concentration  of 
applied  influent  have  significant  implications  with  respect  to  potential 
contamination  of  groundwater  in  the  event  of  accidental  spillage  or 
leakage  of  hydrazinium  into  Arredondo  fine  sand  soil. 


C.  MATHEMATICAL  MODEL  FOR  ONE-DIMENSIONAL  TRANSPORT  OF  HYDRAZINIUM  IN 
SOIL 

1 .  Model  Description 

A  simple  mathematical  model  was  developed  to  describe  the 
convective-dispersive  transport  and  reactions  of  ^H^  during  steady 
liquid  flow  through  columns  of  water-saturated  Arredondo  fine  sand.  Acid 
conditions  were  assumed  so  that  only  protonated  ionic  forms  of  hydrazine 
are  considered.  Hydrazinium  ions  in  the  soil  solution  are  assumed  to  be 
subject  to  relatively  fast  kinetic  physical  sorption  (i.e.,  ion 
exchange).  Physically  sorbed  N^H^  ions  are  simultaneously  subject  to 
irreversible  chemisorption  and  to  relatively  slow  kinetic  non  specific 
sorption  (i.e.,  tightly-bound  sorption).  A  schematic  diagram  for  hydra¬ 
zinium  reactions  assumed  in  the  model  is  given  as  follows: 
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where  C  is  the  concentration  of  N  (mol  1  *)  in  the  mobile  solution 

phase,  6  is  the  volumetric  fraction  of  bulk  soil  (cm  cm  )  occupied  with 

liquid,  u  is  the  average  pore-water  velocity  (m  s  *)  of  the  soil  solu¬ 
tion,  Sj  is  the  concentration  (mol  kg  of  hydrazinium  in  the 
physically-sorbed  or  exchangeable  form,  S„  is  the  concentration  (mol 
kg  )  of  hydrazinium  non-specif ically  sorbed  or  in  the  tightly-bound 
form,  is  the  concentration  (mol  kg  of  hydrazinium  in  the  chemi- 
sorbed  form,  p  is  the  dry  bulk  density  (Mg  m  )  of  the  soil,  k^  and  k^ 
are  forward  and  backward  rate  coefficients  (s  )  for  physical  sorption, 

k^  and  k^  are  forward  and  backward  rate  coefficients  for  kinetic  non¬ 

specific  sorption,  and  K  is  the  rate  coefficient  for  irreversible  chemi¬ 
sorption  confined  with  biodegradation.  For  steady  flow  in  a  soil  profile 
with  different  horizons,  the  parameters  0,  P,  k^ 
would  vary  with  depth  due  to  differences  in  properties  of  soil  in  differ¬ 
ent  horizons.  For  steady  flow  in  the  soil  columns  these  parameters  were 

assumed  to  be  constant  for  each  soil  horizon.  The  sum  of  S  ,  S  and  S„ 

-1  1  1  +  J 

is  designated  as  S  the  total  concentration  (mol  kg  )  of  sorbed  for 

a  given  location  in  the  soil.  Although  S  may  change  with  time  and  depth, 

it  is  important  to  remember  that  sorbed  hydrazinium  ions  are  essentially 

immobile.  The  rate  of  chemisorption  is  assumed  to  be  directly  porpor- 

tional  to  or  the  concentration  of  hydrazinium  in  the  physically-sorbed 

form  but  is  also  limited  by  S.  or  the  maximum  concentration  in  the  chem- 

3ra 

isorbed  form 

as3/3t  =  +k[i-s3/s3m]s1  [6] 

where  t  is  time  (s).  Disappearance  of  by  the  mechanism  of  microbial 

degradation  was  experimentally  shown  to  be  a  relatively  small  effect  for 
the  short  time  durations  for  each  of  the  soil  column  experiments  and  was 
thus  omitted  from  the  model  formulation.  The  parameter  k  was,__thus 
assumed  to  provide  the  rate  coefficient  for  only  chemisorption. 

The  model  requires  that  two  equations  be  solved  numerically, 
one  for  convective-dispersive  transport 

3C/3t  =  D  32C/3z2  -  u3C/3z  +  [p/9]^  SL  -  kfC  [7] 


,  k^,  kff,  k^,  and  k 
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and  one  for  the  net  rate  of  sorption  of 

as^t  =  [0/P]kfC  +  \h  s2  ~  [kb  +  kff  +  k(1_S3/S3m)]Sl  [8] 

2  -1 

where  D  is  the  hydrodynamic  dispersion  coefficient  (ms  )  and  z  is  ver¬ 
tical  distance  in  a  soil  column  of  length  L.  Steady  liquid  flow  (i.e.,  u 
is  constant)  was  maintained  at  all  times  and  dilute  aqueous  solutions 
with  concentration  was  applied  either  continuously  (i.e.,  as  a  step- 
function  input)  or  as  a  wide  pulse  to  the  soil  surface  (z  =  o)  using  a 
flux  boundary  condition 

uc  =  uc  -  D 3c/3z  [9] 

o 

for  t  >  0. 

The  boundary  condition  imposed  at  the  bottom  (z  =  L)  of  the  column  was 

3c/3z  =  0  [10] 

for  t  >  0. 

Initial  conditions  were  such  that  values  for  C,  S^,  S^,  and  were  zero 
in  the  soil  prior  to  application  of  aqueous  solutions  of  hydrazinium. 

A  Crank-Nicholson  finite  differencing  technique  (reference  59) 
was  used  to  numerically  solve  equations  [7]  and  [8]  subject  to  boundary 
conditions  [9]  and  [10].  The  distance  between  nodes  in  space  were  kept 
constant  as  A-  =  0.25  cm  and  time  steps  ^t  were  adjusted  between  5  and 
300  s  in  order  to  insure  minimal  cumulative  mass  balance  errors  in  numer¬ 
ical  simulations  for  C(z,t). 

2.  Experimental  Data  Used  in  Simulations 

Air-dry  soil  from  Ap  (topsoil),  El  (subsoil),  and  E2  (subsoil) 
horizons  of  a  profile  of  Arredondo  fine  sand  were  carefully  hand-packed 
into  glass  chromatographic  columns  with  30-cm  length  and  5.0-cm  inside 
diameter.  The  properties  of  the  three  horizons  (Table  44)  were  such  that 
although  the  content  of  sand-sized  particles  exceeded  90  percent  in  each, 
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the  clay  content  of  the  topsoil  was  1.5  times  greater  than  that  in  the  E2 
subsoil  horizon.  The  organic  carbon  content  for  the  Ap  topsoil  was  13.1 
times  greater  than  that  in  the  E2  subsoil  horizon  but  the  organic  matter 
content  in  the  El  subsoil  horizon  was  only  2.4  times  greater  than  in  the 
E2  horizon.  Since  clay  minerals  and  organic  matter  are  typically  chemi¬ 
cally  reactive  components  of  soils,  one  might  expect  sorption  of  N^H*  t0 
be  greater  in  the  Ap  horizon  and  least  in  the  E2  horizon.  For  the  same 
reasons,  N„H*  mobility  should  be  greater  in  E2  soil  material  and  least  in 

L.  J 

Ap  soil.  Miscible  displacement  of  hydrazinium  solutions  through  columns 
of  these  soils  showed  the  mobility  of  N2^5  t0  c^e  orc^er  Ap  <  El  < 
E2 . 

TABLE  44.  PROPERTIES  OF  ARREDONDO  FINE  SAND  FOR  Ap,  El,  and  E2  HORIZONS. 


Horizon 

Depth 

in 

Profile 

(cm) 

Clay 

Content 

(percent) 

Silt 

Content 

(percent) 

Sand 

Content 

(percent) 

Organic 

Carbon 

Content 

(percent) 

Ap 

0-20 

2.6 

7.3 

90.1 

1.84 

El 

20-80 

1.7 

4.9 

93.4 

0.34 

E2 

80-150 

1.8 

3.7 

94.5 

0.14 

Acidic  aqueous  (pH  4.5)  0.01  N  Ca  solution  was  used  to  wet 
each  soil  column.  The  solution  was  pumped  at  a  constant  Darcy  flow  velo¬ 
city  (q  =  u0)  for  a  period  of  24  hours  to  establish  steady  liquid  flow 

2-f- 

and  to  saturate  soil  exchange  sites  with  Ca  ions.  Oxygen  was  purged 

from  the  solution  using  helium  gas  prior  to  application  to  the  soil  col- 

-4  -4  -1 

umns .  Two  Darcy  flow  velocities  q,  5  x  10  and  50  x  10  cm  s  ,  and 
three  concentrations,  Cq,  in  input  solutions,  6.6  (low),  165  (medium), 
and  660  (high)  mg  1  were  used  for  the  column  experiments.  Input  or 
influent  CaCl^  solutions  with  specified  Cq  were  applied  to  columns  by  two 
methods,  continuously  as  a  step-function  and  as  a  2-pore  volume  pulse 
followed  by  CaCl^  solution  without  hydrazinium  (Cq=0) .  Effluent  aliquots 
from  each  column  were  chemically  analyzed  (reference  62)  for  N^H^  until  a 
sufficient  number  of  pore  volumes  of  effluent  had  been  collected  so  that 
concentrations  of  N^H^  were  constant.  BTC  for  hydrazinium  (plots  of  C/C^ 
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versus  the  number  of  pore  volumes  p  )  were  then  used  to  evaluate  model 
simulations.  Parameters  for  columns  used  in  model  simulations  are  given 
in  Table  45. 


ABLE  45. 

PARAMETERS  FOR  COLUMNS  OF 

HYDRAZINIUM  SOLUTIONS. 

ARREDONDO  FINE  SAND  THAT  RECEIVED 

APPLICATIONS  OF 

C 

D 

Dispersion 

u 

Pore 

Soil 

Column 

Input 

Application 

Coefficient 

Velocity 

Horizon 

Number 

Concentration* 

Method 

_4  2  -1 

_4  _1 

(10  cm  s  ) 

(10  cm  s  ) 

Ap 

1 

Medium 

Pulse 

2.694 

49.6 

2 

Medium 

Pulse 

1.556 

3.9 

3 

Medium 

Continuous 

2.694 

46.3 

4 

Medium 

Continuous 

1.556 

5.1 

5 

High 

Pulse 

2.694 

46.3 

6 

High 

Pulse 

1.556 

4.2 

7 

High 

Continuous 

2.694 

55.6 

8 

High 

Continuous 

1.556 

5.8 

El 

1 

Medium 

Pulse 

2.694 

53.4 

2 

Medium 

Pulse 

1.556 

5.3 

3 

Medium 

Continuous 

2.694 

60.4 

4 

Medium 

Continuous 

1.556 

5.8 

5 

High 

Pulse 

2.694 

51.4 

6 

High 

Pulse 

1.556 

5.6 

7 

High 

Continuous 

2.694 

53.4 

8 

High 

Continuous 

1.556 

5.8 

E2 

1 

Medium 

Pulse 

2.694 

57.9 

2 

Medium 

Pulse 

1.556 

6.0 

3 

Medium 

Continuous 

2.694 

55.6 

4 

Medium 

Continuous 

1.556 

5.3 

5 

High 

Pulse 

2.694 

55.6 

6 

High 

Pulse 

1.556 

5.1 

7 

High 

Continuous 

2.694 

55.6 

8 

High 

Continuous 

1.556 

5.8 

*Medium 

and  high 

concentrations  were  approximately 

165  and  660  mg 

1  *  of  hydrazinium 

respectively. 

Optimized  values  of  reaction  rate  coefficients  for  El  and  E2  subsoil 
horizons  were  obtained  by  calibrating,  (i.e.,  best-fitting)  the  model  to 
BTC's  corresponding  to  high  pore  water  v-*_ocity  and  medium  concentration 
of  hydrazinium  in  the  input  solution.  The  calibration  was  performed  by 
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-using  sensitivity  analysis  for  selected  model  input  parameters  to  obtain 
optimum  values  for  these  parameters  (Table  46). 

3.  Results  and  Discussion  of  Simulations 


TABLE  46.  OPTIMIZED  VALUES  FOR  RATE  COEFFICIENTS  AND  OTHER  INPUT  PARAMETERS  USED  IN  MODEL 
SIMULATIONS  OF  HYDRAZINIUM  TRANSPORT  IN  COLUMNS  OF  El  and  E2  SUBSOIL  MATERIALS. 


Soil  Darcy  Reaction  Rate  Coefficients 


Horizon 

Flux 

,  -Is 

(cm  s  ) 

kf 

kff 

-  (s"1)- 

k 

S3m 

(mmol  ' 

—  ^  s  ) 

El 

,  -4 

-3 

-2 

-4 

-3 

-5 

50x10 

-4 

9.5x10 

-4 

1.0x10 

-3 

3.0x10 

-5 

1.2x10  J 
-4 

1.25x10 

-6 

1.738 

El 

5x10 

-4 

9.5x10 

-3 

1.0x10 

-2 

3.0x10 

-4 

1.2x10 

-3 

1.25x10 

_5 

1.738 

E2 

50x10 

6.00x10 

-4 

1.0x10 

-3 

3.0x10 

-5 

1.2x10  J 
-4 

2.5x10 

-6 

0.816 

E2 

5x10 

6.00x10 

1.0x10 

3.0x10 

1.2x10 

2.5x10 

0.816 

The  optimized  rate 

coefficient 

values 

obtained  by 

calibration 

of 

hydrazinium  BTC  for  the  case  of  high  Darcy  flow  velocity  and  medium  Cq 
for  columns  of  El  and  E2  subsoil  materials  were  divided  by  10,  the  ratio 
of  high  to  low  fluxes,  to  obtain  estimates  for  the  case  of  low  Darcy  flux 
and  medium  Cq  in  the  input  solution.  This  numerical  adjustment  of  rate 
coefficients  for  the  low  water  flux  was  based  on  the  assumption  that 
reaction  rate  coefficients  were  inversely  porportional  to  residence  times 
for  water  molecules  in  the  30-cm  long  soil  columns.  The  optimized  rate 
coefficients  obtained  in  this  manner  indicated  a  relatively  high  mobility 
for  hydrazinium  applied  as  solutions  with  medium  Cq  to  columns  of  the  El 
and  E2  soils  since  the  ratios  for  forward  and  backward  rate  coefficients 
for  relatively  fast  physical  sorption  k^/k^  as  well  as  for  relatively 
slow  non  specific  sorption  k^/k^  were  less  than  unity.  In  addition  the 
magnitudes  for  the  rate  coefficients  were  assumed  to  be  such  that  >> 
k^  and  k^  >>  k^  indicating  that  physical  sorption  (i.e.,  ion  exchange) 
occurred  at  a  faster  rate  than  did  non  specific  sorption.  The  rate 
coefficients  shown  in  Table  46  show  that  the  consecutive  sorption  react¬ 
ions  that  control  the  concentration  of  hydrazinium  in  the  mobile  solution 
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phase  of  the  Arredondo  soil  operated  in  an  overall  kinetic  mode  with 

reversible  as  well  as  irreversible  behavior. 

Values  for  the  maximum  concentrations,  S  ,  of  chemisorbed  hydrazi- 

3  m 

nium  which  El  and  E2  soil  materials  can  support  (see  Table  46)  were 
obtained  by  using  hydrazinium  BTC  from  soil  columns  which  received  con¬ 
tinuous  application  of  aqueous  solution.  The  difference  between  the 
quantities  of  hydrazinium  added  as  influent  solution  and  hydrazinium 
eluted  in  column  effluent  was  assumed  to  approximate  the  quantity  of 
hydrazinium  irreversibly  retained  by  the  soil  due  to  chemisorption.  The 
estimate  of  for  El  soil  was  approximately  twice  that  for  the  E2  soil. 

Thus,  S_  was  roughly  in  proportion  to  the  organic  carbon  content  of  the 
dm 

soil.  For  each  soil  material  S„  was  assumed  to  be  invariant  with 

3m 

respect  to  the  pore  water  velocity.  Using  optimized  rate  coefficients 
k^,  k^,  k^,  and  k^,  sensitivity  analysis  of  the  model  for  E2  soil  col¬ 
umns  which  received  high  flux  applications  of  solutions  with  medium 
revealed  that  doubling  the  magnitude  of  the  rate  coefficient  k  for  irre¬ 
versible  chemisorption  (Figure  55)  tended  to  decrease  the  maximum  hydra¬ 
zinium  concentrations  C/C  observed  in  column  effluent.  The  value  of  k  = 
-5-1  ° 

2.50  x  10  s  provided  an  optimum  value  for  describing  the  BTC.  Using 

the  optimum  k  value,  sensitivity  analysis  of  the  model  (Figure  55)  for 

the  S_  parameter  gave  an  optimum  value  of  8.16  x  10  ^  mol  g  .  A  ten- 
Jm 

fold  larger  value  for  S„  resulted  in  overestimation  of  maximum  C/C  val- 

Jm  o 

ues  for  the  BTC.  The  model  adequately  described  the  left-hand  side  of 
the  BTC  but  overestimated  C/Cq  for  the  right-hand  side  resulting  in  a 
larger  simulated  recovery  of  in  the  column  effluent  than  actually 

observed  experimentally. 

Under  conditions  with  no  chemisorption  sink  (k  =  0)  and  no  non¬ 
specific  sorption  (k^  =*  k^  =  0)  sensitivity  analyses  was  performed  for 

the  BTC  for  a  column  of  E2  soil  with  high  flux  and  medium  Cq  in  the 

influent  (Figure  56)  using  ratios  of  physical  sorption  rate  coefficients 

k^/k^  of  0.3,  0.6,  and  1.2.  The  optimum  ratio  was  shown  to  be  0.6  in 

order  to  adequately  simulate  the  breakthrough  of  :'-n  t*ie  effluent* 

The  simulated  BTC  using  the  ratio  of  0.6  however  provided  much  steeper 
slope  than  experimentally  observed.  A  ratio  of  1.2  tended  to  overesti¬ 
mate  retardation  of  transport  and  0.3  underestimated  retardation. 
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Figure  55.  Simulated  and  Experimental  Hydrazinium  BTC  are  Given  for 

Effluent  from  Columns  of  E2  Soil  Under  Conditions  of  High 
Flow  Velocity  q  and  Medium  Hydrazinium  Concentration  C  for 
Input  Solution.  In  Sections  A  ^md.B  Simulated  BTC's  are 
Shown  for  k.  Values  of  1.25  x  10  s  (Dotted  ^Broken  Line), 
2.50  x  10  2  s  (Smooth  Lines),  and  5.0x10  s  (Broken 
Lines).  In  Sections  C  and  D  Simulated  BTC's  are  Presented 
for  S^  Values  of  8.16  (Broken  Lines),  0.8^16  (Smooth  Lines) 
and  0.^816  (Dotted  Broken  Lines)  mmol  kg  .  Discrete  Data 
Points  are  Given  for  Cases  Where  Hydrazinium  Solutions  Were 
Applied  Continuously  (A  and  C)  and  as  a  Wide  Pulse  (B  and  D) . 
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Using  the  optimum  ratio  k^/k^  =  0.6,  assuming  nonspecific  sorption  to 
occur,  and  assuming  no  chemisorption  sink  term  (k  =  0) ,  further  sensitiv¬ 
ity  analyses  (Figure  56)  was  performed  by  using  ratios  of  rate  coeffic¬ 
ients  kff  /kbb  of  0.125,  0.250,  and  0.500  in  the  model.  Increasing  this 
ratio  was  observed  to  decrease  the  slope  of  the  BTC.  The  value  of  0.250 
was  chosen  as  the  optimum  ratio. 

Calibrated  BTC  for  E2  soil  with  medium  C^  and  high  u  are  shown  in 
Figure  56  for  pulse  and  continuous  applications  of  influent.  Using  ten¬ 
fold  smaller  values  for  each  of  the  5  rate  coefficients  for  E2  soil  pro¬ 
vided  good  simulations  (Figure  56)  for  the  low  pore  velocity  u.  Using 
these  optimized  rate  coefficients  and  parameters  for  E2  soil,  hydrazinium 

BTC  were  simulated  for  cases  where  high  C  (Figure  57)  and  low  C  (Figure 

o  o 

58)  influent  solutions  were  applied  to  the  soil  columns.  For  high  C 

o 

influent  the  simulated  BTC  gave  reasonable  estimation  of  general  shapes; 
however  for  pulse  applications  hydrazinium  retardation  was  slightly  over 
estimated.  For  low  C^  influent  the  simulated  BTC  were  totally  unaccept¬ 
able.  In  that  case  maximum  values  of  C/C  were  overestimated  for  pulse 

o 

and  continuous  applications  of  influent.  Initial  slopes  of  simulated  BTC 
were  much  steeper  than  experimental  data  indicating  severe  overestimation 
of  hydrazinum  mobility,  and  hydrazinium  breakthrough  in  column  effluent 
was  greatly  underestimated.  Experimental  BTC  showed  extensive  irreversi¬ 
ble  removal  of  hydrazinium  from  the  applied  influent  during  flow  through 
the  soil  columns.  Obviously  solute  mobility  was  much  greater  experiment¬ 
ally  than  simulated  when  low  Cq  influent  was  applied  to  columns  of  E2 
soil. 

Calibrated  BTC  for  El  soil  with  medium  C  and  high  u  are  shown  in 

o 

(Figure  56)  for  pulse  and  continuous  applications  of  influent.  Simula¬ 
tions  provided  good  descriptions  of  experiments  for  continuous  applica¬ 
tion  of  influent  (Figure  59)  but  overestimated  the  area  under  the  BTC  for 
pulse  application  (Figure  59).  For  the  case  of  low  u,  simulations  over¬ 
estimated  maximum  values  for  C/C  ,  underestimated  retardation,  and  under- 

°  + 

estimated  irreversible  removal  of  N^H  ^rom  solution.  Results  were  basi¬ 
cally  the  same  when  simulations  were  performed  for  high  C^  influent  (Fig¬ 
ure  60).  Simulated  BTC  for  low  C  influent  (Figure  61)  indicated  rather 

-j- 

rapid  transport  of  ^^5  t^roug^1  the  El  soil  but  experimental  results 
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Figure  56.  Simulated  and  Experimental  Hydrazinium  BTC  are  Presented 
for  E2  Soil  Columns  with  High  q  and  Pulse  Application  of 
Solution  with  Medium  C  .  In  Section  A,  only  Physical 
Sorption  is  Considered  in  the  Model,  and  Simulated  BTC's 
are  Given  for  k^/k^  Ratios  of  0.3  (Broken  Line),  0.6 
(Smooth  Line)  an  a  1.2  (Dotted  Broken  Line).  In  Section 
B,  Physical  Non-Specific  Sorption  Reaction  Mechanisms 
are  Included  in  the  Model,  and  Simulated  BTC's  are  Given 
for  kff/ki.  Ratios  of  0.125  (Broken  Line),  0.250  (Smooth 
Line),  ana  0.500  (Dotted  Broken  Line). 
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Figure  57.  Experimental  and  Optimized  Simulated  Hydrazinium  BTC  for 

Columns  of  E2  Soil  that  Received  Input  Solution  with  High  C 
(Using  Optimized  Reaction  Parameters  from  Table  46)  are  Pre¬ 
sented  for  Continuous  Input  with  High  q  (A)  and  Low  q  (C)  as 
Well  for  Pulse  Input  with  High  q  (B)  and  Low  q  (D) . 


172 


Concentration  (C/C 


1.0 


o.a 


o .  e 


o .  4 


o .  a 


!B*i| 


o .  a 


o.a 


o .  4 


o .  a 


o  1 


Figure  58. 


0  18  3  4  0  8 

Pore  Volumes 

Experimental  and  Optimized  (Using  Reaction  Parameters  from 
Table  46)  Simulated  Hydrazinium  BTC  for  Columns  of  E2  Soil 
that  Received  Input  Solutions  with  Low  C^  are  Presented  for 
Continuous  Input  with  High  q  (A)  and  Low  q  (C)  as  Well  as  for 
Pulse  Input  with  High  q  (B)  and  Low  q  (D) . 
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Experimental  and  optimized  (used  reaction  parameters  from 
Table  46)  simulated  hydrazinium  BTC  for  columns  of  El  soil 
that  received  input  solutions  with  medium  C  are  presented 
for  continuous  input  with  high  q  (A)  and  low  q  (C)  as  well 
as  for  pulse  input  with  high  q  (B)  and  low  q  (D). 
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Figure  60.  Experimental  and  Optimized  (Used  Reaction  Parameters  from 

Table  46)  Simulated  Hydrazinium  BTC  for  Columns  of  El  Soil 
that  Received  Input  Solutions  with  High  C  are  Presented  for 
Continuous  Input  with  High  q  (A)  and  Low  q  (C)  as  Well  as 
for  Pulse  Input  with  High  q  (B)  and  Low  q  (D) . 
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Figure  61.  Experimental  and  Optimized  (Used  Reaction  Parameters  from 

Table  46)  Simulated  Hydrazinium  BTC  for  Columns  of  El  Soil 
that  Received  Input  Solutions  with  Low  C  are  Presented  for 
Continuous  Input  with  High  q  (A)  and  Low  q  (C)  as  Well  as  for 
Pulse  Input  with  High  q  (3)  and  Low  q  (D) . 


indicated  no  recovery  of molecules  in  effluent  from  columns  with 
pulse  and  continuous  influent  application  and  two  pore  water  velocities. 
Thus, the  model  did  not  describe  experimental  data  for  the  case  where  low 
influent  was  applied  to  El  soil. 

4.  Conclusions 

A  convective-dispersive  chemical  transport  model  that  includes 
3  kinetic  reactions  between  hydrazinium  and  soil  components  was  developed 
to  describe  the  movement  of  hydrazinium  applied  in  solution  to  columns  of 
water-saturated  soil  during  steady  liquid  flow.  Hydrazinium  ions  in  the 
solution  phase  of  the  soil  were  assumed  to  be  subject  to  linear  reversi¬ 
ble  sorption  (i.e.  cation  exchange).  Physically  sorbed  ions  were  assumed 
to  be  equally  susceptable  to  reversible  nonspecific  sorption  (tightly- 
bound  sorption)  and  irreversible  chemisorption.  Input  parameters 
required  for  the  model  require  a  hydrodynamic  dispersion  coefficient  D, 
soil  water  content  9,  Darcy  liquid  flow  velocity  q,  forward  and  backward 
rate  coefficients,  k^.  and  k^,  for  physical  sorption,  forward  and  backward 
rate  coefficients,  k^  and  k^j  for  nonspecific  sorption,  a  rate  coeffi¬ 
cient  k  for  chemisorption,  and  the  maximum  concentration  S^m  for  chemi¬ 
sorbed  hydrazinium  that  the  soil  matrix  can  support.  Sensitivity  analy¬ 
sis  and  a  calibration  procedure  of  hydrazinium  BTC  were  used  to  determine 
the  reaction  parameters  for  El  and  E2  subsoil  materials  for  Arredondo 
fine  sand.  Calibration  was  performed  by  curve-fitting  the  model  to  BTC's 
corresponding  to  high  pore  water  velocity  and  medium  concentration  of 
hydrazinium  in  applied  influent  for  these  2  soils. 

Kinetic  or  local  nonequilibrium  assumptions  for  the  consecutive 
physical  and  nonspecific  sorption  processes  were  observed  to  be  essen¬ 
tial  for  describing  tailing  and  general  shapes  of  hydrazinium  BTC's. 
Optimized  values  for  rate  coefficients  for  physical  and  non-specific 
sorption  processes  were  such  that  backward  rate  coefficients  were  greater 
than  forward  rate  coefficients,  i.e.  k^  >  k^  and  k^  >  k^. 

Incomplete  recovery  of  applied  hydrazinium  in  column  effluent 
was  predicted  using  the  irreversible  chemisorption  sink  term  in  the  model 
when  influent  solution  contained  high  concentrations  of  hydrazinium. 
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When  the  influent  solutions  contained  low  or  medium  hydrazinium  concen¬ 
trations,  the  chemisorption  sink  term  underestimated  irreversible  removal 
of  chemical  from  the  solution  phase  of  the  soil. 

The  specific  model  as  given  by  Equations  [7]  and  [8]  arose  after 
many  attempts  to  alter  relationships  between  dissolved,  physically 
sorbed,  nonspecif ically  sorbed,  and  chemisorbed  conceptual  forms  of  N^H* 
in  the  soil.  The  conceptual  linkage  of  these  forms  of  N-H,.  in  the  soil 
was  observed  to  be  very  important  in  describing  data  from  soil  columns. 

The  mathematical  transport  model  as  given  by  equations  [7]  and  [8] 
was  effective  in  describing  the  time  of  hydrazinium  breakthrough,  the 
relatively  steep  slopes  for  the  initial  portion  of  BTC’s,  maximum  concen¬ 
trations  in  the  effluent,  and  general  shapes  of  hydrazinium  BTC's  for 
columns  of  El  and  E2  subsoil  materials  when  influent  solutions  contained 
high  concentrations .  In  contrast,  hydrazinium  BTC  for  columns  that 
received  input  solutions  with  low  and  medium  concentrations  exhibited 
small  slopes  for  the  initial  portion  of  BTC’s  and  fractions  of  applied 
hydrazinium  not  recovered  in  the  effluent  were  disproportionately  smaller 
than  for  BTC's  corresponding  to  high  influent  concentration.  Thus  the 
model  described  the  initial  hydrazinium  breakthrough  in  the  column  efflu¬ 
ent  when  low  and  medium  influent  concentrations  were  used,  but  it  failed 
to  describe  the  shape  and  maximum  concentrations  for  hydrazinium  BTC's 
for  those  cases. 

D.  MATHEMATICAL  MODEL  FOR  TWO-DIMENSIONAL  TRANSPORT  OF  WATER  AND  SOLUTE 

IN  SOIL 

1.  Description  of  Model 

A  two-dimensional  numerical  model  was  developed  to  describe 
transient  solute  and  transient  water  transport  in  soil  that  receives 
leakage  of  hydrazine  fuel  from  a  subsurface  storage  tank  and  discharges 
groundwater  through  a  drain  located  at  some  lateral  distance  L  downstream 
from  a  leaking  storage  tank.  A  rectangular  flow  region  (Figure  62)  of 
depth  z  =  D  and  lateral  dimension  x  =  L  is  considered.  The  soil  surface 
occurs  at  the  upper  boundary  and  an  impervious  clay  layer  forms  the  lower 
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Boundary  Condition  III 


Figure  62.  Schematic  Diagram  of  Two-Dimensional  Cross- 

Section  of  a  Rectangular  Area  (with  Unit 
Thickness)  of  Soil  Which  Receives  Seepage 
Input  of  Leakage  from  a  Storage  Tank  on  the 
Upstream  Side  (Represented  by  Boundary  Condi¬ 
tion  IVB)  and  Discharges  Groundwater  Through  a 
Drain  (Given  by  Boundary  Condition  IIB)  on  the 
Downstream  Side.  The  Top  Side  Coincides  with 
the  Soil  Ssurface  and  is  Subject  to  Periodic 
Infiltration  from  Rainfall.  An  Impervious 
Clay  Layer  is  Assumed  to  be  Located  at  a  Depth 
Z  =  D.  The  Horizontal  Length  of  the  Rectangu¬ 
lar  Flow  Region  is  Given  as  L. 


179 


boundary.  The  upper  boundary  is  subject  to  infiltration  of  water  from 
periodic  rainfall  and/or  infiltration  of  hydrazine  fuel.  Acid  soil  and 
water  conditions  are  assumed  such  that  hydrazine  occurs  predominantly  in 
the  ionic  form  N0H*.  The  model  allows  regions  of  water-saturation  and 
unsaturation  to  occur  simultaneously  in  the  soil  flow  region. 

Two-dimensional  transient  water  flow  in  isotropic,  homogeneous 
porous  media  is  described  by  the  continuity  equation  (Reference  48) 

tydh/dt  =  3 (K  3h/3x)/3x  +  3 (K  3h/3z)/3z  -  3K/3z  [11] 

where  h  is  soil  water  pressure  head  (m  of  water)  ,  x  is  horizontal  dis¬ 
tance  (m) ,  z  is  vertical  depth  (m) ,  t  is  time  (s),  K  is  hydraulic  conduc¬ 
tivity  (m  s  S  which  tends  to  decrease  as  h  becomes  increasingly  nega¬ 
tive,  and  ip  is  the  specific  soil  water  capacity.  The  parameter  i*/  is 

defined  as  the  slope  of  the  soil-water  characteristic  curve  =  30/3h 

3  -3 

where  0  is  the  volumetric  water  content  (mm  )  of  the  soil.  The  term  on 

the  left-hand  side  of  Equation  [11]  may  also  be  expressed  simply  as 

30/3t.  Equation  [11]  is  simply  a  mathematical  statement  of  conservation 

of  mass.  Solution  of  the  water  equation  requires  that  experimental  data 

be  provided  to  establish  relationships  for  0  =  F(h)  and  K  =  G(h)  where 

F(h)  and  G(h)  are  functions  of  water  pressure  head  over  the  range  h  <  0. 

For  h  0  or  conditions  of  water  saturation,  0  and  K  parameters  are 

assumed  to  have  constant  values  8  and  K  ,  respectively.  For  conditions 

o  o 

of  water-saturation  where  h  <  0,  specific  water  capacity  ^  varies  with  h. 
Ordinarily  ip  =  0  for  conditions  of  water-unsaturation  where  h  ^  0  and 

Equation  [11]  becomes  elliptic  in  form.  The  approximating  assumption  is 

-4  -1 

made  here  that  <p  =  10  cm  for  the  condition  h  >  0  so  that  Equation 
[11]  has  a  parabolic  form  for  both  saturated-  and  unsaturated-soil 
conditions . 

Boundary  conditions  for  water  flow  in  the  rectangular  region  are 
given  as  follows: 

Designator  Condition  Location 

I  periodic  water  infiltration  0  <  x  <  L  and  z  =  0  [12] 
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IIA 

IIB 


IIC 

III 


IVA 

IVB 


IVC 


at  the  upper  soil  surface  with 

application  intensity  <p  with 
3  -2-1 

units  of  cm  cm  s  ; 

$  =  -  K[(3h/3z-l)] 

no  lateral  flow;  3h/3x  =  0 

h  =  0  at  a  subsurface  drain 

tube;  discharge  from  the  soil 

to  the  drain  occurs  when 

h  >  0  in  the  surrounding  soil 

no  lateral  flow;  3h/3x  =  0 

no  vertical  flow  due  to  an 

impervious  layer  along  the 

lower  boundary;  3h/3z  =1 

no  lateral  flow;  3h/3x  =  0 

lateral  seepage  inflow  with 

flux  A(t)  having  units  of 
3  -2  -1 

cm  cm  s  from  underground 
storage  tank;  A  *  -K  3h/3x 
no  lateral  flow;  3h/3x  =  0 


x  =  L  and  0  <  z  <  z^  [13] 
x  =  L  and  z^  <  z  <  Z2  [14] 


x  =  L  and  z^<z<D  [15] 
0  <  x  <  L  and  z  =  D  [  16  ] 


x  =  0  and  P2  <  z  <  D  [17] 
x  =  0  and  p^  <  z  <  p2  [18] 


x  =  0  and  0  <  z  <  p  ^  [19] 


The  rectangular  flow  region  is  assumed  to  be  of  unit  thickness  (y  =  1  cm) 
in  order  to  calculate  volumes  of  soil  and  water.  Initial  conditions  are 
required  to  specify  the  pressure  head  h(x,z,t  =  0)  for  ail  internal  r.cdes 
for  the  flow  region.  The  location  (or  Cartesian  coordinates)  for  the 
water  table  (h  =  0)  provides  the  demarcation  between  zones  of  negative 
pressure  head  (region  of  capillary  fringe  and  water-unsaturation)  above 
and  of  positive  pressure  head  (region  of  water-saturation)  below. 

Two-dimensional  solute  transport  coupled  with  linear  instantaneous 
sorption  during  transient  water  flow  in  isotropic,  homogeneous  porous 
media  is  described  by  the  convective-dispersive  transport  equation 
(Reference  43) . 


3(6C)/3t  +  0 (R-l)3C/3t  =  3[0D  3C/3x  -  q  C]/3x  + 

X  X 

3 [ 6 D  3C/3z  -  q  C]/3z  [20] 

z  z 
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_3 

where  C  is  the  solute  concentration  (mmol  cm  )  in  the  solution  phase,  D 

r  x 

and  D  are  horizontal  and  vertical  components  of  the  hydrodynamic  dis- 
2  2-1 

persion  coefficient  (cm“  h  ),  q  is  the  horizontal  component  of  Darcy 
-1  X 

water  flux  (cm  h  )  ,  q  is  the  vertical  component  of  Darcy  water  flux  (cm 

h  R  =  1  -r  m  [P/0]KCm  ^  is  the  solute  retardation  function,  where  K  is 

3  -1 

the  solute  distribution  coefficient  (cm  g  )  from  a  Freundlich  sorption 
m 

isotherm  S  =  KC  for  chemical  equilibrium,  m  is  a  constant  and  S  is  the 
solute  concentration  (mmol  g  in  the  solid  phase  of  the  soil.  The 
horizontal  and  vertical  components  for  the  dispersion  coefficient  are 
assumed  to  be 

D  =  D  +  D,  q  /0  and  D  =  D  +  D,  q  /6  [21] 

x  o  1  nx  z  o  1  z 

where  D  is  the  diffusion  coefficient  and  D,  is  the  dispersivitv  coeffi- 
o  1 

cient  (reference  43). 

Boundary  conditions  for  solute  transport  in  the  rectangular  flow 
region  are  specified  as  follows: 


Designator 

Condition 

Location 

I 

zero 

or  imposed  inflow 

0 

< 

X 

<  L 

and  z 

=  0 

[22] 

solute  flux  at  the  upper 

soil 

surface;  J  =  q  C  or  J 
z  nz  z 

=  0 

IIA 

zero 

lateral  solute  flux;  J 

X 

=  0 

X 

= 

L 

and 

0  <  z 

<  2 

l 

[23] 

IIB 

solute  elution  in  discharge 

X 

= 

L 

and 

z^  <  z 

<  Z2 

[24] 

water 

■  to  a  subsurface  drain 

tube ; 

J  =  q  C  or  3C/3x  =  0 

X  X 

IIC 

zero 

lateral  solute  flux; 

X 

= 

L 

and 

z^<  z 

<  D 

[25] 

J  = 

X 

0 

III 

zero 

vertical  solute  flux; 

0 

< 

X 

<  L 

and  z 

=  D 

[26] 

J  = 
z 

0 

IVA 

zero 

lateral  solute  flux; 

X 

0 

and 

P2  <  z 

<  D 

[27] 

J  = 

X 

o 

IV  B 

finite  inflow  flux  of  solute 

X 

S= 

0 

and 

Pj  <  z 

"  P2 

[28] 

with  seepage  from  storage  tank.; 

XC  =  0D  3C/3x  -  q  C  where  C 
ox  x  o 
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is  Che  hvdrazinium  concentra¬ 
tion  of  influent 


IVC  zero  lateral  solute  flux;  J  =  o  x  =  0  and  0  <  z  <  p.  [29] 

x  rl 

Vertical  and  horizontal  components  for  solute  flux  are  given  as 

j'z  =  -0Dz  3C/3z  +  qzC  [30] 

and 


J  =  -0D  3C/3x  +  q  C. 

XX  X 


[31] 


Initial  conditions  are  required  to  specify  C(x,z,t=0)  for  all  internal 
nodes  for  the  flow  region. 

The  rectangular  flow  region  of  soil  was  divided  into  equally  spaced 
nodes  such  that  Ax  =  Az .  The  water  equation  was  first  solved  to  give 
h (x , z , t)  and  then  the  solute  transport  equation  was  solved  to  give 
C(x,z,t).  An  Iterative  Alternating  Direction  Implicit  (IADI)  method 
(Reference  61)  was  used  to  solve  Equation  [11]  for  water  pressure  head 
h(x,a,t)  subject  to  conditions  given  by  Equations  [12]  through  [19].  Two 
finite  difference  approximations  were  used  alternatively,  one  which  is 
implicit  in  the  x-direction  to  advance  the  calculations  in  time  (n  to 
n+1)  along  rows  in  the  spatial  grid  of  nodes  from  iteration  level  m  to 
m+1 . 


m+1  hn+;  .  t-  f, 
i-i. j  i 


m+1  h^+1  [F  +  F  +  F  +  F  +  G] 

1  j  j  1  -  J  4 


m+1  n+1  r  , 

hi+l.j  [-  F2! 


'  I'  F3> 


+  hi,j  >-  h  -  F2  -  F3  -  V,  +  G' 
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+  hn 

i.J  +  1 

+  hn 
i-l. J 

,  ,  n 
i+l.j 

[f2] 

m+1  ,  n+1 

+  "i.i- 

■1  [F 

m  ,  n+1 

4  "i , j+l 

+  2 Ax  (F3  -  F4) 


[32] 


where  F  =  Kn+|  ,  F  =  kV  . ,  F  =  K?+!  .  ,  F  =  K?+? , , ,  G  =  yvV ,  and 
1  2  l-i.j’  2  l+i,j  3  i,j-J  4  i,j  +  r  l.J 

Y  =  2(Ax)  /At  and  a  second  which  is  implicit  in  the  z-direction  to 

advance  the  calculations  in  time  (n  to  n+1)  along  columns  in  the  spa¬ 
tial  grid  of  nodes  from  the  iteration  level  m+1  to  m+2. 


m+2  hn+1  r  v  1 
hi,J-I  1  F3J 

m+2  hn+1  [F  +  F  +  F  +  F  +  G] 
l,j  1  1  2  3  4  J 

m+2  .n+1  f  F  , 

"l,j4l  [  V 


=  h,  ,  .  [f . 
i-i. j  i 


+  hi,j  F1  -  F2  "  F3  ‘  F4  +  G1 


+  "141.3  ‘V 


+  [F3] 


+  "l,J41  [F4: 


m+1  n+1  r_  , 

hi-i.j  [Fi] 
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m+ 1  n+ 1 

+  hi+l,j 


+  2  Ax  [F3  -  F4]. 


[33] 


Subscript  i  refers  to  horizontal  distance  x,  subscript  j  refers  to  ver¬ 
tical  distance  z,  and  superscript  n  refers  to  time  t.  Equations  [32]  and 
[33]  provide  a  system  of  matrix  equations  which  have  a  tridiagonal 
coefficient  matrix  and  ,tnuz  can  be  solved  using  the  Thomas  (Reference  61) 
algorithm.  Equation  [32]  was  first  applied  to  all  rows  of  spatial  nodes 
in  the  rectangular  flow  region  and  equation  [33]  was  then  applied  to  all 
columns  of  spatial  nodes.  This  two-step  process  advanced  the  solution 
from  the  current  time  t  =  nAt  to  a  future  time  t  =  (n+l)At.  Iteration 
was  then  applied,  and  the  two-step  procedure  was  repeated  sufficient 
timet,  to  give  a  convergent  solution  for  h(x,z,t)  in  the  rectangular  flow 
region.  The  iterative  two-step  procedure  was  then  advanced  to  the  next 
time  step. 

Upon  completion  of  the  solution,  values  obtained  for  h(x,z,t)  were 
used  to  calculate  horizontal  and  vertical  components  for  Darcy  water  flux 

q  =  -K[3h/3x]  [34] 


and 


q  =  -K[(8h/3z)  -1],  respectively.  [35] 

z 

This  information  for  q^  and  q^  was  then  used  as  input  to  the  numerical 
solution  of  equation  [20]  for  solute  transport. 

After  the  water  equation  was  solved,  an  IADI  finite  difference 
method  (Reference  61)  was  then  used  to  solve  equation  [20]  for  values  of 
C(x,z,t)  in  the  rectangular  flow  region.  Two  finite  difference  approxi¬ 
mations  for  equation  [20]  were  used  alternatively,  one  which  is  implicit 
in  the  x-direction  to  advance  the  computations  in  time  (n  to  n+1)  along 
rows  in  the  spatial  grid  from  iteration  level  m  to  m+1. 


m+1  _n+l  , 
Ci-l,j  l' 


Ai  -  V 


185 


[A1  +  A2  +  A3  +  A,.  +  Bj  -  B2  +  B3  -B4  +  E] 

"f  Cl, j  A2  +  B2J 


*  [A3  +  B3> 


+  cJ,j  I"  A1  -  A2  -  A3  -  \  -  B1  +  B2  -  B3  +  B4  +  E> 


+  Ci,j+1  [A4  +  V 


+  ci-l.j  lAl+V 


+C1+1,J  1*2  -“21 


”+  C.U  (A3  +  V 


\  C,U  [A4  -  V 


[36] 


where  ^  -  [SDJ^,  A2  -  Aj  -  [eD^.j,  A,  - 

[6Dz>M+r  “i  ■  b2  ■  b2  ■ 

(Ax/2)Ux]£j  ,  B3  -  (6x/2)[qz]n4|j1,  B4  -  (Ax/2)(qz)"|*+!>  and  E  - 

Y«n+!  Rf*. 

i.j  i.j 

and  a  second  which  is  implicit  in  the  z-direction  to  advance  the  compu¬ 
tations  in  time  (n  to  n+1)  along  columns  in  the  spatial  grid  from  iter¬ 
ation  level  m+1  to  nH-2. 

^  Ctj-1  ^  A3  -  V 

"f  Cilj  [A1  +  A2  +  A3  +  A,  +  -  B2  +  B3  -  B4  +  E] 

T  CT,U  1“  A 4  +  V 
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=  ci-i(j  [A1  +  V 


+  Cj(j  [-  Ax  -  A2  -  A3  -  A4  -  Bl  +  B2  -  B3  -f  B4  +  E] 


+Ci+l,j  ^2  '  V 


+  CifJ-l  [A3  +  B3 ^ 


+  C.  [A.  -  B.] 
i,j  +  l  1  4  4 

m+1  _n+l  r .  „  . 

lAi  +  V 


m+1 


Ci+l,j  tA2  '  V 


It  is  important  to  note  that  by  definition  0n+^[Rn+!-l] 
balance  errors  were  computed  for  simulations  of  both  water 
of  solute  transport. 


[37] 

=  pK.  Mass 
movement  and 
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2.  Results  from  Simulated  Water  and  Solute  Transport 

The  computer  program  for  the  two-dimensional  model  describing  trans¬ 
ient  water  flow  and  transient  solute  transport  in  soil  was  evaluated 
using  a  simple  case  of  transient  solute  transport  during  steady  water 
flow  in  the  vertical  direction.  Water  saturation  was  maintained  within  a 
rectangular  flow  region  (Figure  62)  having  left-hand  and  right-hand  boun¬ 
daries  with  no  lateral  water  flow.  Identical  water  flux  values  of  inflow 
and  outflow  were  imposed  at  the  upper  and  lower  boundaries  respectively. 
Breakthrough  curves  (BTC)  for  the  outflow  water  were  simulated  for  the 
case  where  the  concentration  of  a  conservative  chemical  solute  in  the 
inflow  water  was  increased  step-wise  from  zero  to  C  .  A  comparison 
(results  not  presented  here)  between  the  simulated  BTC  and  BTC  obtained 
using  a  well-known  analytical  mathematical  model  showed  excellent  agree¬ 
ment  indicating  that  the  computer  code  was  functioning  properly  for  that 
simple  case  of  solute  transport. 

In  order  to  demonstrate  capabilities  of  the  2-dimensional  model, 
water  flow  and  solute  transport  were  simulated  for  the  case  of  infiltra¬ 
tion  of  an  aqueous  solution  with  concentration  C  =  100  mole  1  ^  with  an 

-1  ° 

application  intensity  <p  =  2  cm  h  over  a  5-cm  wide  zone  at  the  soil  sur¬ 
face  (Figure  62) .  The  solute  applied  was  assumed  to  be  conservative 
(i.e.  no  sorption  occurred)  such  that  the  retardation  function  R  was 
unity.  Lakeland  fine  sand  topsoil  (Reference  63)  with  a  bulk  density  of 
1.65  Mg  m  ,  saturated  water  content  of  0.352  m3  m  3,  and  saturated 
hydraulic  conductivity  of  3.43  x  10  ^  m  s  ^  was  selected  as  the  soil  for 
the  rectangular  flow  zone.  The  Van  Genuchten  (Reference  62)  method  was 
used  to  provide  smooth  estimates  of  6(h),  Kh)  and  (h)  functions  (Figure 
63)  for  the  Lakeland  soil.  Parameters  a  =  0.02031,  n  =  4.190,  and 
residual  water  content  of  0.086  m3  m  3  were  used  in  the  calculations. 
The  depth  of  the  zone  was  50  cm  and  width  was  25  cm.  Aqueous  solution 
was  applied  to  the  soil  over  the  left-hand  side  of  the  upper  boundary  (0 
<  x  <  5  cm  and  z  -  0  cm).  The  initial  water  suction  head  in  the  soil  was 
100  cm  of  water  and  solute  was  absent  from  the  initial  soil  solution. 
The  node  spacing  used  in  the  model  was  Ax  =  Az  =  1  cm.  Initially  time 
steps  were  At  =  0.1  s  and  were  gradually  increased  to  a  maximum  of  At  = 
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Water  Capacity  Conductivity  Water 

Cio“4  cm-4)  (io“4  cm  ■”‘4)  Content 


Lakeland  Fine  Sand  (0—30  cm) 


Figure  63.  Graphs  of  Volumetric  Water  Content  (0),  Hydraulic  Conductiv¬ 
ity  (K) ,  and  Water  Capacity  (ip)  Versus  Water  Suction  Head  (h) 
for  Lakeland  Fine  Sand  Topsoil.  Smooth  Curves  Were  Obtained 
Used  the  Van  Genuchten  (reference  32)  Method  and  Discrete 
Points  Represent  Data  from  Dane  et  al  (reference  63). 
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100  s  as  Che  simulation  progressed.  Values  for  the  diffusion  coefficient 

_  Q  2  —.1 

Dq  and  the  dispersivity  coefficient  were  4.3  x  10  cm  s  and  1.0 
cm,  respectively. 

Two-dimensional  distributions  of  water  suction  head  h  and  solute 
concentration  C  in  the  Lakeland  fine  sand  are  presented  for  1000  s  (Fig¬ 
ure  64),  6000  s  (Figure  65),  12000  s  (Figure  66),  and  18000  s  (Figure  67) 
after  initiation  of  flux  application  of  aqueous  solution  to  a  5-cm  wide 
strip  of  the  upper  soil  surface.  As  expected,  the  soil  immediately 
beneath  the  infiltration  zone  increased  in  water  content  (suction  head 
decreased)  with  increasing  time.  The  infiltrated  water  resulted  in  a 
wetting  zone  which  progressed  laterally  and  vertically  downward  through 
the  soil.  Solute  concentrations  in  the  soil  solution  also  moved  as  a 
2-dimensional  front  with  similar  shape  to  that  of  the  advancing  water 
front.  The  water  front  was  observed  to  be  influenced  by  gravity  since  as 
time  progressed  the  rate  of  vertical  advance  of  the  front  exceeded  the 

rate  of  lateral  advance.  The  solute  front  was  observed  to  lag  slightly 

behind  the  water  front  due  to  the  presence  of  some  initial  soil  water 
(0.115  m3  m  3)  that  did  not  contain  solute.  If  the  soil  had  been  oven- 
dry  (i.e.  no  soil  water)  initially,  the  solute  and  water  fronts  would 

have  been  expected  to  progress  with  similar  rates  in  time. 

Cumulative  mass  balance  errors  for  this  simulation  were  well  within 
acceptable  limits,  being  less  for  water  flow  than  for  solute  transport. 
For  water  flow,  errors  were  +  0.01,  -0.17,  -0.47,  and  -0.68  percent  for 
1000,  6000,  12000,  and  18000  s,  respectively.  Errors  for  solute  trans¬ 
port  were  +  0.12,  -1.19,  -  1.79,  and  -2.07  percent  for  1000,  6000,  12000, 
and  18000s,  respectively.  These  relatively  low  mass  balance  errors  imply 
that  the  program  was  functioning  properly.  However,  validation  of  the 
model  using  experimental  data  was  beyond  the  scope  of  this  project. 

3.  Conclusions 

A  finite  difference  technique  was  used  to  develop  a  two-dimensional 
solute  transport  model  for  conditions  of  transient  water  flow  in  soil. 
Tentative  evaluation  of  the  model  indicates  that  the  program  provides 
expected  results  for  the  simple  case  of  a  conservative  solute  (such  as 
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Pr essur e 
Head 
(cm) 


So  lute 
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(mole  l-1) 


Lateral  Distance  (cm) 

Figure  64.  simulated  Distributions  of  Soil  Water  Suction  Head  (h)  and 

Concentration  (C)  of  a  Conservative  Solute  After  1000s  Infil¬ 
tration  of  a  Salt  Solution  at  the  Upper  Left-Hand  Soil  Surface. 
Numbers  9,  8,  7,  6,  and  5  for  impressive  heads  indicate  100  to 
90,  90  to  80,  80  to  70,  70  to  60,  and  60  to  50  cm  of  water, 
respectively.  Numbers  0,  2,  4,  6,  and  8  for  iso— concentrations 
designate  0  to  20,  20  to  40,  40  to  60,  60,  80,  and  80  to  100 
mole  1~  ,  respectively. 
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Figure  65 . Simulated  Distributions  of  Suction  Head  and  Solute  Concentra 
tion  After  6000s  Infiltration  of  a  Salt  Solution. 
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Figure  66.  Simulated  Distributions  of  Suction  Head  and  Solute  Concei 
tion  After  12000s  Infiltration  of  a  Salt  Solution. 
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Figure  67.  Simulated  Distributions  of  Suction  Head  and  Solute  Concentra¬ 
tion  After  18000s  Infiltration  of  a  Salt  Solution. 
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tritiated  water  tracer)  .  For  conditions  of  chemical  equilibrium,  the 
model  can  be  used  to  simulate  the  transport  of  a  nonconservative  solute 
(such  as  hydrazinium)  by  assuming  that  a  Freundlich  isotherm  can  be  used 
to  describe  the  net  influence  of  all  chemical  reactions  that  control  sol¬ 
ute  concentration  in  the  soil  solution.  Although  in  the  present  form  of 
the  model  reaction  kinetics  have  been  omitted,  the  program  could  be  modi¬ 
fied  to  accommodate  non  instantaneous  chemical  reactions. 

E.  RECOMMENDATIONS  FOR  FUTURE  RESEARCH 


Ongoing  research  by  doctoral  graduate  student  Wayne  Downs  is  under¬ 
way  to  provide  independent  determination  of  values  of  rate  coefficients 
and  other  pertinent  reaction  parameters  that  control  the  kinetic  transfer 
of  hydrazinium  ions  between  solution  and  solids  phases  of  soil  from  Ap, 
El  and  E2  horizons  of  Arredondo  fine  sand.  Further  understanding  of  the 
role  of  cation  exchange  upon  the  sorption-desorption  of  hydrazinium  in 
soil  is  needed.  Investigations  using  stirred  slurries  of  soil  in  aqueous 
solution  as  well  as  flow  through  soil  columns  are  needed  to  determine 
overall  sorption  kinetics.  This  information  is  needed  to  provide  further 
evaluation  of  the/  mathematical  model  as  well  as  improved  understanding  of 
the  mobility  of  hydrazinium  applied  to  this  soil. 

Column  experiments  in  this  project  involved  water-saturation  of  the 
soil  in  order  to  simplify  conditions  that  might  occur  under  a  field  site. 
This  simplification  was  needed  in  order  to  facilitate  the  investigation 
of  the  importance  of  chemical  and  physical  reactions  upon  hydrazinium 
transport  in  soil.  Water-saturation  of  the  soil  profile  generally 
assumes  a  shallow  water  table  and  poor  lateral  drainage  to  a  stream  or 
lake.  In  terms  of  transport  of  a  reactive  chemical,  water-saturation  of 
the  soil  profile  represents  a  worst-case  scenario  with  respect  to  poten¬ 
tial  groundwater  contamination.  A  second  stage  of  research  is  needed  to 
investigate  the  fate  and  transport  of  and  applied  to  water- 
unsaturated  soil  under  conditions  of  intermittent  rainfall.  Such  condi¬ 
tions  are  common  in  soil  profiles  with  relatively  deep  water  tables. 
Transport  of  chemicals  through  unsaturated  soil  generally  is  a  slower 
process  with  longer  residence  times  and  more  effective  contact  with 
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reactive  soil  components  than  flow  through  saturated  soil.  Generally 
speaking  reactive  chemicals  such  as  pesticides,  orthophosphate,  and 
organic  wastes  tend  to  interact  more  completely  with  soil  components  and 
thus  be  less  mobile  under  conditions  of  aerobic,  water-saturation  of  the 
soil.  Laboratory  soil  columns,  large  lysimeters,  and  small  field  sites 
should  be  used  to  evaluate  the  fate  and  transport  of  hydrazine  during 
transient  water  flow  through  water-unsaturated  soil.  Field  site  data  is 
particularly  needed  to  provide  fate  and  transport  information  in  a  nat¬ 
ural  setting.  Two-dimensional  data  from  carefully-selected  field  exper¬ 
iments  are  needed  to  evaluate  the  unvalidated  2-D  transport  model  repor¬ 
ted  in  this  report.  More  detailed  submodels  for  microbial  degradation 
and  chemical-physical  reactions  should  be  evaluated  first  under  non  flow 
conditions  in  batch  reactors  of  stirred  soil  suspensions  under  water 
saturation  conditions.  Selected  submodels  should  then  be  coupled  to  a 
one-dimensional  convective-dispersive  transport  model  in  order  to  better 
describe  water  and  hydrazine  movement  in  both  water-saturated  and  water- 
unsaturated  soil. 

Further  research  is  needed  to  provide  a  data  base  of  hydrazine  mobi¬ 
lity  under  flow  conditions  in  columns  for  a  wide  range  of  soils  with  var¬ 
ying  proportions  of  reactive  components  such  as  sescjuioxides ,  clay  mine¬ 
rals,  and  organic  matter.  The  dependence  of  hydrazinium  mobility  and 
reactions  in  soil  upon  solution  pH,  temperature,  ionic  composition  of  the 
soil  solution  and  soil  aeration  should  be  determined  for  a  wide  range  of 
soils  and  water  flux  conditions  in  soil  columns. 
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SELECTED  FIGURES  FOR  COLUMN  EXPERIMENTS 
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Figure  68.  Effluent  pH  and  Ca  Concentration  from  Columns 
of  Ap  Soil  that  Received  Continuous  Application 
of  Influent  with  A.  Low,  B.  Medium,  and  C.  High 
Concentrations  C  of  Hydtjazinium  Hydrate. 
Liquid  Flux  was  q  =  0.5  cm  h 
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Effluent  pH  and  Hydrazinium  Concentration  from 
Columns  of  Ap  Soil  that  Received  Continuous 
Application  of  Influent  with  A.  Low,  B.  Medium, 
and  C.  High  C  .  Liauid  Flux  was  0.5  cm  h 
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Figure  70.  Effluent  pH  and  Ca  Concentration  from  Columns 
of  Ap  Soil  that  Received  Pulse  Application  of 
Influent  with  A.  Low,  B.  Medium,  and  C.  High 
C^.  Liquid  Flux  was  0.5  cm  h 
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Figure  71.  Effluent  pH  and  Hydrazinium  Concentration  from 
Columns  of  Ap  Soil  that  Received  Pulse  Applica¬ 
tion  of  Influent  with  A.  Low,  B.  Ijledium,  and  C. 
High  Cq.  Liquid  Flux  was  5  cm  h 
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Figure  72.  Effluent  pH  and  Ca  Concentration  from  Columns 
of  Ap  Soil  that  Received  Continuous  Application 
of  Influent  with  A.  Low,  B.  ijledium,  and  C.  High 
Cq.  Liquid  Flux  was  5  cm  h 
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Figure  73.  Effluent  pH  and  Hydrazinium  Concentration  from 
Columns  of  Ap  Soil  that  Received  Continuous 
Application  of  Influent  with  A.  Low,  B._^edium, 
and  C.  High  Cq.  Liquid  Flux  was  5  cm  h 
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Figure  74.  Effluent  pH  and  Ca^+  Concentration  from  Columns 
of  Ap  Soil  that  Received  Pulse  Application  of 
Influent  with  A.  Low,  B.  Medium,  and  C.  High 
CQ.  Liquid  Flux  was  5  cm  h 


210 


Relative  Concentration  (X) 


1 .  o 


o .  a 


o .  a 


0 . 4 


0.2 


0 . 8 


o .  a 


0 . 4 


0 . 2 


o .  a 


0 . 6 


in 

I  0.4 
(U 

Z  o.a 


Ap  Soil  Horizon 

Pulse  Input  £  5.0  cm  h“4  Flux 


a .  o 


3.8 


s .  o 


4 .8 


B:  Medium  C 


e .  o 


8 .8  ^ 


8  .  O 


4 . 8 


4  .  O 


5. 8 


8  .  O 


4 . 5 


Pore  Vo lumes 

Figure  75.  Effluent  pH  and  Hydrazinium  Concentration  from 
Columns  of  Ap  Soil  that  Received  Pulse  Applica¬ 
tion  of  Influent  with  A.  Low,  B.  Ijlediuir.  and  C. 
High  Cq.  Liquid  Flux  was  5  cm  h 
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Effluent  pH  and  Ca  Concentration  from  Columns 
of  El  Soil  that  Received  Continuous  Application 
of  Influent  with  A.  Low,  B.  Medium,  and  C.  High 
Cq.  Liquid  Flux  was  0.5  cm  h 
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Figure  77.  Effluent  pH  and  Hydrazinium  Concentration  from 
Columns  of  El  Soil  that  Received  Continuous 
Application  of  Influent  with  A.  Low,  B.  Medium, 
and  C.  High  C  .  Liquid  Flux  was  0.5  cm  h 
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Figure  78  Effluent  pH  and  Ca  Concentration  from  Columns 
of  El  Soil  that  Received  Pulse  Application  of 
Influent  with  A.  Low,  B.  Medium,  and  C.  High 
C  .  Liquid  Flux  was  0.5  cm  h 
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Figure  79.  Effluent  pH  and  Hydrazinium  Concentration  from 
Columns  of  El  oil  that  Received  Pulse  Applica¬ 
tion  of  Influent  with  A.  Low,  B.  Medium  and  C. 
High  Cq.  Liquid  Flux  was  0.5  cm  h 
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Figure  80  .  Effluent  pH  and  Ca  oncentration  from  Columns 
of  El  Soil  that  Received  Continuous  Application 
of  Influent  with  A.  Low,  B.  Medium,  and  C.  High 
Cq.  Liquid  Flux  was  0.5  cm  h 
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Figure  84.  Effluent  pH  and  Ca  Concentration  from  Columns 
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of  Influent  with  A.  Low,  B.  Medium,  and  C.  High 
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Figure  90.  Effluent  pH  and  Ca  Concentration  from  Columns 
of  E2  Soil  that  Received  Pulse  Application  of 
Influent  with  A.  Low,  B.  Medium,  and  C.  High 
C  .  Liquid  Flux  was  5  cm  h 
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APPENDIX  B 


COMPUTER  CODE  FOR  ONE-DIMENSIONAL  MODEL 


1  .  Computer  Code  for  One-Dimensional  Model 

Program  for  preparation  of  parameter  files  for  Che  hydrazine  simulation  program: 

SETHYDRA  Variable  Dictionary 


AmBnpH 

AutoX3 

3ase?H 

BuikDn 


Cone (MaxSet , 6) 


Depth {Max set ) 


Disper 

DtM.ax 

DtStep 

Dx 

EffZer 

Feedbk 

FIConc (MaxSet , 4 ) 

FluxAm (MaxSet ) 

riuxTm (MaxSet ) 

sprint 

HydroB 

Icheck 

lonExB 

I rrevB 

I trLim 

Kinet.c  (2) 

MaxSet-  5 
MicroB 


Nflux 
Nreps 
Nspecs 
RautoX (2, 3) 
Rdgrad (2, 4) 
RepTim (MaxSet) 
RevspB 
Rlabel 
Rsorb (2,8) 


Scale  (4) 

SelH2C 

Sponge 

ThetaS 

TLimit 


TmStop 


ambient  pH 

Boolean  indicating  whether  auto-oxidation  is  to  occur 
base  pH  (used  with  ambient  pH  in  hydrolysis  calculations) 
bulk  density  (gra/cc) 
column  length  (cm) 

concentration  of  dissolved  N2H4,  dissolved  £  sorbed  N2H5+,  dissolved  &  sorbed  Ca+*,  and 
dissolved  oxygen.  Dissolved  values  are  in  mew/cc  and  sorbed  values  in  meq/gm.  There  can 
be  up  to  MAXSET  sets  of  values,  each  corresponding  to  a  boundary  condition  in  the  column 
the  depth  at  which  each  of  the  boundary  condition  sets  applies 
dispersion  coefficient  (cm2/sec) 

maximum  value  that  Dt  (the  time  step)  will  be  allowed  to  assume  (sec) 
the  increment  (fractional)  that  Dt  will  be  increased  from  Dtmin  to  DtMax 
the  increment  between  nodes  (cm) 

effective  zero  exponent  (typically  -30  — >  l.QE-30) 
boolean  indicating  feedback  for  debugging  purposes 

the  concentration  of  N2H4 , N2H5+, Ca++  and  02  in  the  input  flux  for  MAXSET  possible  flux  changes 

the  flux  (cm/sec)  imposed  on  the  column  at  any  given  flux  change 

when  the  flux  change  occurs  (secs) 

filename  used  to  receive  the  simulation  report 

boolean  indicating  whether  hydrolysis  is  to  occur 

the  number  of  iterations  of  the  simulation  between  checks  on  the  abort  function 

boolean  indicating  whether  hydrolysis  is  to  occur 

boolean  indicating  whether  irreversible  sorption  is  to  occur 

iterative  limit  -  the  number  of  trys  to  generate  a  convergent  solution 

boolean  indicating  whether  a  kinetic  approach  for  N2H4  and  N2H5+  reversible  sorption  is  to  be  used 

maximum  number  of  boundary  condition  sets  and  flux  changes  allowed 

boolean  indicating  whether  microbial  degradation  is  to  occur 

the  number  of  flux  changes 

the  number  of  reports  requested 

the  number  of  boundary  condition  sets  needed 

the  rate  coefficients  for  auto-oxidation 

the  rate  coefficients  for  microbial  degradation 

the  times  at  which  reports  are  to  be  generated 

boolean  indicating  whether  reversible  sorption  is  to  occur 

the  overall  run  label  (80  characters) 

the  reversible  sorption  coefficients  for  (N2H4  &  N2H5+)  by  (kf ,  kb,  N,  kf  f ,  <ob,  kp,  kq)  .  The 
last  coefficient  (.,8)  is  the  irreversible  1st  order  degradation  coefficient 

divisors  for  the  four  species  by  which  the  breakthrough  curve  values  are  scaled  respectively 

selectivity  coefficient  between  calcium  and  N2HS+ 

maximum  permanent  binding  capacity  at  each  node  (meq  N2H5»-/gra) 

saturated  water  content 

tolerance  level  (%)  at  which  the  difference  between  successive  approximations  is  considered 
to  be  acceptable 

time  at  which  simulation  is  to  be  terminated  (sec) 


SETHYDRA  Common  Block 


C  Common  blocks  for  SetHyd  -  Sethydra.CMB 
Parameter  (MaxSet»5) 

Common/ Info/AutoXB, AmBnpH, BasePH, BulkDn, Column, Cone (MaxSet , 6) , 

£  Depth (Maxset ) , Disper, DtStep, DtMax, Dx, Ef  fZer, Feedbk, 

&  FIConc (MaxSet, 4) , FluxAm (MaxSet ) ,FluxTm (MaxSet) , 

£  HydroB, Icheck, IonExB, I rrevB, It rLim, Kinetc (2) , MicroB, 

£  Nflux, Nreps, Nspecs, RautoX (2,3) ,  Rdgrad (2,4), 

6  RepTim (MaxSet ) , RevspB, Rsorb (2, 8) , Scale (4) ,  SelH2C, 

&  ThetaS, TLimit , TmStop, Sponge 

Common / ChrBlk / R labe 1, Fprint 
Character  Rlabel  80, Fprint*S0 

Logical  AutoXB, Feedbk, HydroB, IonExB, I rrevB, Kinetc, MicroB, RevspB 


SETHYDRA  Program  Code 


PROGRAM  SetHyd 


Dr.  Stephen  A.  Bloom  -  for  Dr.  Robert  Mansell,  Soil  Science  04/2S/86 
program  last  modified  -  February  28,1908 


INCLUDE  ' SetHydra . CMB' 

Dimension  0ption(13) 

Logical  Abort , AskQus, SetGen,StSoil 
Character  NumStr*2,Option*80 
Integer  CHoice 

Data  LenOpt /63/, Niteras/13/,Option/ 

£  '  <0>  Terminate  program',' 

£  '<1>  Set  general  simulation  parameters  (L,Dx, Dt . . . ) ' , 

4  ' <2>  Set  the  soil  character! sties' , 

£  ' <3>  Set  the  boundary  conditions  (xx  currently  set)*, 

£  '  <4>  Set  the  imposed  flux  £  concentration  conditions  (xx  set)*, 
£  '<S>  Specify  when  reports  are  to  be  generated  (xx  set)', 

£  '<6>  Alter  miscellaneous  default  parameters', 
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ft  '<'>  Record  simulation  parameters' , 

»  '  <3>  Reset  for  entering  another  parameter  set', 

4  '<9>  Read  a  parameter  rile  into  memory', 

i  '  =  Still  neeas  to  be  set  cefore  saving  parameters'/ 

Call  Page (' Hydrazin (e) (ium)  Transport  for  Columns  Preparation') 
1 0  Set  Gen  -  . false . 

StSoil  -  . false . 

Nspecs  *  0 
Nreps  -  0 
Nf lux  -  0 
Call  Set'Jp 

20  Cali  I  r.ZChr  (Nspecs ,  N’ urn  St  r ) 

Do  30  I  =  3,7 

30  Option  (I)  (4  :  4 )  -  '  ' 

If  ( .Sot. Set Gen)  Opt  ion (3) (4 : 4)  - 
If  (.not .StSoil)  Option (4)  (4:4)  = 

If  (Sapecs. LE.O)  Option (5)  (4  :  4)  * 

If  (Nflux. LE.O)  Opt  ion  ( 6)  (4  :  4 )  » 

If  (Nreps .LE.O)  Opt ion{7)  (4  :  4 )  - 
Option (5)  (35 : 36)  *  NumStr 
Call  In2Chr (Nflux, NumStr) 

0ption(6)  (55:56)  -  NumStr 
Call  In2Chr (Nreps, NumStr) 

Cpcionp)  (48:495  ■  NumStr 

Choice  -  MenChc (LenOpt, Nitema .Option, .true. ) 

If  (Choice. LE.O)  THEN 

If  ( . Not . AskQus (' Do  you  wish  to  terminate?' ,. t rue 12) ) 

4  Goto  20 

ELSE  IF  (Choice. EQ. 1)  THEN 
Call  Run? rm (Set Gen) 

ELSE  IF  (Choice. EQ. 2)  THEN 
Call  SoilVl (StSoil) 

ELSE  IF  (Choice. EQ. 3)  THEN 
If  ( . Not . SetGen)  THEN 

Call  Warnin (' Please  set  the  general  conditions  first', 

4  .true.,! 2) 

ELSE 

Call  Bounds 
ENDIF 

ELSE  IF  (Choice. EQ. 4)  THEN 
If  (.Not. SetGen)  THEN 

Call  Warnin (' Please  set  the  general  conditions  first', 

4  .true. ,12) 

ELSE 

Call  Fluxes 
ENDIF 

ELSE  IF  (Choice. EQ. 5)  THEN 
If  (.Not. SetGen)  THEN 

Call  Warnin (' Please  set  the  general  conditions  first', 

4  .true., 12) 

ELSE 

Call  Report 
ENDIF 

ELSE  IF  (Choice. EC. 6)  THEN 
Call  StrvSet 

ELSE  IF  (Choice. EQ. 7)  THEN 

I f  (SetGen . AND . StSoil . AND .Nreps . GT . 0 . AND . Nspecs . GT . 0 . AND . 

4  Nflux. GT.0)  THEN 

Call  PoreVl 
Call  Record 
ELSE 

IF  ( .not .SetGen)  THEN 

Call  Warnin {'You  must  set  the  general  parameters  before 
4  //'saving  the  parameters' true. , 12) 

ELSE  If  ( .Not .StSoil)  THEN 

Call  Warnin ('You  must  set  the  soil  parameters  before  ' 

£  //'saving  the  parameters' ,. true. , 12) 

ELSE  If  (Nspecs. LE. 0)  THEN 

Call  Warnin ('You  must  enter  at  least  1  boundary  condit' 
4  //'ion  set  before  saving  the  parameters' , .true. , 12) 

ELSE  If  (Nreps. LE.O)  THEN 

Call  Warnin ('You  must  enter  at  least  1  report' 

4  //'time  before  saving  the  parameters' ,. true. , 12) 

ELSE  If  (Nflux. LE.O)  THEN 

Call  Warnin ('You  must  enter  at  least  1  flux  condit' 

4  //'ion  set  before  saving  the  parameters' ,. t rue. , 12) 

ENDIF 
ENOIF 

ELSE  IF  (Choice. EQ. 8)  THEN 
Goto  10 

ELSE  If  (Choice. EQ. 9)  THEN 

I f  (SetGen . Or . StSoil . OR . Nspecs . GT . 0 . OR . Nf lux . GT . 0 . OR. 

4  Nreps. GT.0)  THEN 

Call  Not  ice (' Accessing  a  parameter  will  destroy  the  ' 

4  //'information  currently  in  memory true. , 10) 

If  (. not .AskQus (' Continue  anyway ?',. false. , 12) )  Goto  20 
ENDIF 

SetGen  »  .true. 

StSoil  *  . true. 

Call  GetPar 
ENDIF 

If  (Choice. NE. 0)  Goto  20 
END 

Subroutine  SetUp 


{indicate  tnat  the  general  and  soil  parameters) 
{are  not  yet  set  and  set  the  counters  to  zero) 


(initialize  the  variables) 

(convert  the  counters  to  string  variables) 


(flag  the  options  if  they  need  set) 


(display  the  menu  and  get  the  users  choice) 
(confirm  termination  before  termination) 

(set  the  general  run  parameters) 
(set  the  soil  values) 


(set  the  boundary  conditions) 


(set  the  flux  changes) 


(specify  when  reports  are  to  be  generated) 
{set  standard  default  run  parameters) 

(suggest  a  conversion  to  pore  volumes) 

(record  the  parameter  set) 

{but  warn  if  the  parameter  set  is  incomplete) 


(reset  the  program  to  a  start-up  condition) 


(read  a  pre-existing  parameter  file) 
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C  this  routine  sets  and  displ&ys  the  standard  simulation  settings 

INCLUDE  ' Set Hydra. CM3' 

Feedbfc  *  . false. 

Ichecx  -  5 
TLimit  •  0.5 
ItrLim  -  20 
DtStep  *  0.05 
EffZer  -  -30 
IonExB  -  .true. 

RevspB  *  .true. 

Irrev3  -  .true. 

MicroB  -  .true. 

AutoXB  ■  .true. 

HydroB  -  .true. 

SelH2C  •  1.0 
DO  10  I  -  1,2 

Kinetc(I)  *  .true. 

DO  5  J  -  1,4 

Rsorb(I,J)  -  1.0 
Rsorb  (1, 4+ J)  -  1.0 
5  Rdgrad(I,J)  ■  1.0 

Do  10  J  -  1,3 
10  RautoX (I, J)  -  1.0 

Do  15  I  -  1,4 
15  Scaled)  -  1.0 
Baseph  -7.8 
AmbnPh  -  7.8 
Sponge  *  0.0 
Return 
END 

Subroutine  Runprra  (BinSet) 


C  this  routine  sets  and  displays  the  general  simulation  settings 


INCLUDE  ' SetHydra.CMB' 

Dimension  Query (9) , Answer (9) , String (9) 

Character  Query *80, St  ring" 80 
Real  Lo2Rel 

Logical  Rel2Lo, BinSet , BadVal 
Data  Nitems/9/, LenQry/50/, Query/ 

&  '  0500CC  - General  Simulation  Parameters---', 

&  '  0701LD  Modify /Examine  specific  Source/Sink  settings', 

&  '  0 902S?  File  to  receive  results', 

&  ' 1103S?  Title  for  run' , 

&  ' 1 404R?  Column  length  (cm)', 

4  ' 1 505R?  Time  to  terminate  simulation  (sec)', 

C  '  1 60 6R?  Dx  (distance  between  nodes)  (cm)', 

&  ' 1 707R?  Maximum  Dt  (time  step)  (sec)', 

&  ' 1 908LD  Set  BTC  scale  factors'/ 
t  Answer/2*0.0, 15.0, 80.0,5*0.0/ 

1  Answer (2)  -  Lo2Rel (. false . ) 

Answer(9)  *  Lo2Rel (. false . ) 

If  (.not. BinSet)  THEN 
Do  10  I  -  3,8 
10  Query  (I)  (6:  6)  -  '  ?' 

BinSet  -  .true. 

ELSE 

Do  15  I  -  2,8 
15  Query  ( I )  ( 6  :  6)  -  'D' 

StringO)  -  Fprint 
String(4)  *  Rlabel 
Answer (5)  *  Column 
Answer (6)  »  TraStop 
Answer (7)  -  Dx 
Answer (8)  ■  DtMax 
ENDIF 

BadVal  *  .false. 

Call  MenFil (LenQry , Ni terns, Query, Answer, String, . true. ) 

Fprint  *  String (3) 

Rlabel  »  String (4) 

Call  StrLen (Rlabel, Length) 

If  (Length. LE. 0)  Rlabel  -  'Title  not  set' 

Column  •  Answer(5) 

If  (Column. LE. 0.0)  THEN 

Call  Warnin (' Column  must  be  >  0.0  cm  long' , . t rue. , 12) 
Query  (5)  ( 6 :  6)  -  '  ?' 

BadVal  -  .true. 

ENDIF 

TmStop  »  Answer (6) 

If  (TmStop. LE. 0.0)  THEN 

Call  Warnin('Time  to  stop  must  be  >  0.0  sec' , . t rue. , 1 2) 
Query  (6)  ( 6 :  6)  -  '  ?' 

BadVal  -  .true. 

ENDIF 

Dx  -  Answer (7) 

If  (Dx.LE.0.0)  THEN 

Call  Warnin (' Depth  increment  must  be  >  0.0  cm' , . t  rue . , 1 2) 
Query  (7)  (6:  6)  •  '  ?' 

BadVal  •  .true. 

ENDIF 

DtMax  -  Answer  (8) 

If  (DtMax. LE. 0.0)  THEN 
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Cali  Warnin  { ' Dt  must  he  >  C.O  sec' ,  .  t rue . ,  1 2) 

Query  (8)  <6:  6)  =  '  V 
BadVai  -  .true. 

END  IF 

If  (ReI2Lo (Answer (9) ) >  Call  ScaleF 

If  (Rel2Lo (Answer (2) ) )  Call  Sinks 

If  (BadVai . OR . Rel2Lo (Answer (2) ) )  Goto  1 

Return 

END 

Subroutine  ScaleF 

C - 

C  this  routine  sets  the  BTC  scale  factors 

C - 

INCLUDE  ' SetHydra . CMB' 

Dimension  Query (6) , Answer (6) , String (6) 

Character  Query *80, St  ring* 80 

Real  Lo2Rel 

Logical  Rel2Lo, BadVai 

Data  Niteras/6/, LenQry/60/, Query/ 

4  ' 0500CC  - BTC  Scale  Factors - 

4  ' 0600CC  (BTC  values  *  Absolute  concentration/scale  factor}*, 

&  '1001RD  Scale  Factor  for  - {Hydrazine  (N2H4)  } - ', 

&  '1102RD  Scale  Factor  for  ---{Hydrazinium  (N2H5+) } — 

£  '  1203RD  Scale  Factor  for  —{Calcium  (Ca++)  } - ', 

&  '13Q4RD  Scale  Factor  for  —{Oxygen  (02)  } - '  / 

1  Do  10  I  -  3,6 
10  Answer(I)  »  Scale  (1-2) 

BadVai  ■  . false . 

Call  MenFil (LenQry, Ni terns, Query , Answer, String,  .true. ) 

DO  20  I  -  3,6 

Scale  (1-2)  *  Answer(I) 

20  If  (Scale (1-3) . LE. 0 . 0)  BadVai  -  .true, 
if  (BadVai)  Call  Waminl 

£  'Scale  factors  must  be  greater  than  zero' ,. t rue ., 12) 

If  (BadVai)  Goto  1 

Return 

END 

Subroutine  SoilVl (BinSet) 

C - 

C  this  routine  sets  and  displays  the  soil  characteristics 

C - - - 

INCLUDE  'SetHydra. CMB' 

Dimension  Query (5) , Answer (5) , String (5) 

Character  Query *80, St ring*80 
Logical  BadVai , As kQus, BinSet 
Data  Nitems/5/, LenQry/60/, Query/ 

4  ' 0500CC  - Characteristics  of  the  soil  to  be  modeled - ', 

£  ' 0901R?  Bulk  density  of  the  soil  (gra/cc) * , 

&  ' 1 102R?  Dispersion  (cm2/sec) ' , 

&  ' 1303R?  Saturated  Water  Content  (cra3/cm3)*, 

&  '1504RD  Hydrazinium  permanent  binding  capacity  (meq/gm)'/ 

1  Answer (5)  ■  Sponge 
If  (.Not. BinSet)  THEN 
Do  10  I  -  l,Nitems-l 

10  If  (Query  (I)  (5:  S)  .NE. 'C* )  Query  (I )  (6 :  6)  -  '  V 
BinSet  *  .true. 

ELSE 

Do  15  I  ■  l,Nitems 

15  If  (Query  (I)  (5:  5)  .NE. '  C' )  Query  (I)  (6:  6)  -  '  D* 

Answer (2)  *  BulkDn 
AnswerO)  -  Disper 
Answer (4)  -  ThetaS 
END  IF 

BadVai  ■  .false. 

Call  MenFil (LenQry, Nitems, Query, Answer, String, . true. ) 

BulkDn  *  Answer  (2) 

If  (BulkDn. LE. 1 .0. OR. BulkDn. GE. 4.0)  THEN 

Call  Warning  Bulk  density  must  be  >  1.0  &  <  4 . 0' ,  .  t  rue. ,  12) 
BadVai  ■  .true. 

Query  (2)  (6:6)  -  '  V 
END  IF 

Disper  -  AnswerO) 

If  (Disper. LE. 0.0)  THEN 

Call  Warnin (' Dispersion  must  be  greater  than  0' , . true. , 12) 
Query  (3)  (6: 6)  -  ' V 
BadVai  ■  .true. 

END  IF 

ThetaS  »  Answer (4) 

If  (ThetaS. LE. 0.0)  THEN 

Call  Warnin (' Water  Content  must  be  greater  than  0' ,  . t rue . , 1 2) 
Query  (4)  (6:6)  -  *?' 

BadVai  »  .true. 

ENDIF 

Sponge  ■  ANswer(S) 

If  (Sponge. LT. 0.0)  THEN 

Call  Warnin  ('  Hydrazinium  binding  capacity  cannot  be  negative', 
&  . t  rue .,12) 

Query  (5)  (6:6)  -  '  ?' 

BadVai  ■  .true. 

ENDIF 

If  (BadVai)  Goto  1 

Return 

END 

Subroutine  Bounds 
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C  this  routine  seta  and  displays  the  boundary  conditions 

C - 

INCLUDE  'SetHydra.CMB' 

Dimension  Query (9)  , Answer ( 9) ,  St  ring ( 9) 

Character  Query *80, St  ring*  80, NumSt r*2 

Logical  BadVal, AskQua 

Data  Ni terns/ 9/, LenQry/ 60/, Query/ 

4' Q500CC  - Description  of  the  boundary  (initial)  conditions - ' , 

4'0701R?  Depth  in  column  at  which  conditions  apply', 

4'1000CC  - Concentrations  of  Active  Species - 

4' 1203R?  Concentration  of  hydrazine  in  solution  (meq/cc) 1 , 

4' 13Q4R?  Concentration  of  hydrazinium  in  solution  (meq/cc)', 
4M405R?  Concentration  of  sorbed  hydrazinium  (meq/g)', 

4' 1 S06R?  Concentration  of  Calcium  in  solution  (raeq/cc) ' , 

4' 1 6Q7R?  Concentration  of  sorbed  Calcium  (meq/g)', 

4 '  1 708R?  Concentration  of  oxygen  in  solution  (meq/cc)'/ 

1  If  (Nspecs . Gt . C)  THEN 

If  (AskQus('Do  you  wish  to  review  a  set  of  previously  entered' 

4  //'  conditions?  <Y/N> : N' //char (8) , . true. , 12))  THEN 

Call  In2Chr (Nspecs, NumSt r) 

Call  Notice (' \Please  enter  which  set  is  needed  (1  to  ' // 

4  NumStr//' ):', .false. , 14) 

Read(», *,Err-ll  Ispec 

If  (Ispec. LT. 1 .OR. Ispec. GT. Nspecs)  Goto  1 
ELSE 

Ispec  *  Nspecs  ♦  1 
ENDIF 
ELSE 

Ispec  »  1 
ENDIF 

5  BadVal  ■  .false. 

If  (Ispec . GT. MaxSet )  THEN 

Call  Warnin (' Maximum  number  of  sets  now  in  memory.  No  more  ' 

4  //'can  be  added. true ., 12) 

ELSE 

If  (Ispec .GT. Nspecs)  THEN 
Do  10  I  »  1, Nit ems 

10  If  (Query  (I)  (5:5)  .NE, 'CM  Query  (I)  (6:  6)  =  '  ?' 

ELSE 

Do  15  I  ■  l,Nitems 

15  If  (Query  (I)  (5:S)  .NE. 'CM  Query  (I )  ( 6  :  6)  -  'D' 

Answer(2)  -  Depth(Ispec) 

Do  16  I  -  1,6 

16  Answer (3+ I)  *  Cone (Ispec, I) 

ENDIF 

Call  MenFll (LenQry, Ni terns, Query, Answer,  String,  .true. ) 

Depth (Ispec)  *  Answer (2) 

If  (Depth (Ispec) .LT.0. OR. Depth(Ispee) .GT. Column)  THEN 

Call  Warnin ('Depth  must  be  >  0  4  less  than  column' ,. t rue. , 12) 
Query  (2)  (6  :  6)  •  '?' 

BadVal  *  .true. 

ENDIF 

Do  20  I  -  1,6 

Concdspec,  I)  »  Answer(3+I) 

If  (Concdspec, I)  .LT. 0.0)  THEN 

Call  Warnin (' Concent  rations  must  be  >■  0 . 0' , . true . , 12) 

Query  (3*1)  (6:6)  -  '  ?' 

BadVal  »  .true. 

ENDIF 

20  Continue 

If  (BadVal)  Goto  5 

If  (Ispec .Gt . Nspecs)  Nspecs  »  Nspecs  ♦  1 
ENDIF 
Return 
END 

Subroutine  Fluxes 

C - - - 

C  this  routine  sets  and  displays  the  input  flux  settings 

INCLUDE  'SetHydra.CMB' 

Dimension  Query (7) , Answer (7) , String (7) 

Character  Query*80, St ring*80, NumSt r*2 
Real  Lo2Rel 

Logical  Rel2Lo, BadVal , AskQus 
Data  Nitems/7/, LenQry/60/, Query/ 

4  ' 0500CC  --Description  of  material  entering  the  column---', 

4  '0701R?  Time  of  the  flux  change', 

4  ' 1202R?  Imposed  Flux  (cm/hr)  into  column', 

6  '1503R?  Concentration  of  hydrazine  entering  (meq/cc)', 

4  '1604R?  Concentration  of  hydrazinium  entering  (raeq/cc)', 

4  ' 1 705R?  Concentration  of  Calcium  entering  (meq/cc)', 

4  '1806R?  Concentration  of  oxygen  entering  (meq/cc)'/ 

1  If  (Nf lux . Gt . 0)  THEN 

If  (AskQus ('Do  you  wish  to  review  a  set  of  previously  entered' 

4  //'  conditions?  ( Y/N) : N' //char (8) , . true . , 1 2) )  THEN 

Call  In2Chr (Nf lux, NumSt r) 

Call  Notice {' \Please  enter  which  set  is  needed  (1  to  '// 

4  NumStr//') false. , 14) 

Read (*,*, Err- 1 )  Ispec 

If  (Ispec. LT. 1 .OR. Ispec. GT.Nflux)  Goto  1 
ELSE 

Ispec  •  Nflux  ♦  1 
ENDTF 


232 


ELSE 

Ispec  *  1 
ENT)  IF 

5  BadVal  ■  ■ false . 

If  { Ispec . GT . MaxSet )  THEN 

Call  Wa rn in (' Maximum  number  of  secs  now  in  memory.  No  more  ' 
i  //'can  be  added. true . , 12) 

ELSE 

If  (Ispec. GT.Nflux)  THEN 
Do  10  I  -  1, means 

10  If  (Query  (I)  (5:5)  .EQ.'R'  )  Query  (I)  (6  :  6)  -  •  ?' 

If  (Ispec . GT. 1 )  THEN 
Query  (3)  (6:  6)  =  *  D' 

Answer (3)  -  FluxAm (1) 

ENDIF 

ELSE 

Do  IS  I  -  1#10 

15  If  (Query  (I )  (5:  5)  ,£Q.  '  R'  )  Query  ( I )  ( 6  :  6)  -  'D' 

Answer (2)  -  FluxTm (Ispec) 

Answer(3)  -  FluxAm (Ispec) 

Do  20  I  -  1,4 

20  Answer (3+ 1)  -  FIConc  (Ispec, I ) 

ENorr 

Call  MenFil (LenQry, Niteras , Query, Answer, String, .true. ) 

FluxTm (Ispec)  *  Answer(2) 

If  (FluxTm (Ispec) .LT. O.O.OR.FLuxTm(Ispec) .Gt . TmStop)  THEN 
Call  Wamin('Flux  times  must  be  >  0  6  less  than  the  ' 
k  //'termination  time' , . t rue. , 12) 

Query  (2)  (6:6)  -  1  ?* 

BadVal  •  .true. 

ENDIF 

FluxAm (Ispec)  »  Answer (3) 

If  (FluxAm (I spec) .LT. 0.0)  THEN 

Call  Wamin('Flux  values  must  be  >•  0. 0' ,  . true.  ,12) 

Query  (3)  (6  :  6)  -  '  V 
BadVal  *  .true. 

ELSE  If  (Ispec. GT.l. AND. FluxAm (Ispec) . NE . FluxAm  ( i > )  THEN 
Call  Warnin  ('All  flux  values  must  be  the  same' ,  .true.  ,  12) 
Query  (3)  (6:  6)  -  '  V 
BadVal  -  .true. 

ENDIF 

Do  25  I  -  1,4 

FIConc  (Ispec,  I )  *  Answer  < 3 1 ) 

If  (FIConc (Ispec, I) .LT. 0.0)  THEN 

Call  Warnin (' Concentration  must  be  >-  0 . 0' , . t rue. , 12) 
Query  (3  +  1)  (6:6)  -  '  ?' 

BadVal  *  .true. 

ENDIF 

25  Continue 

If  (BadVal)  Goto  5 

If  (Ispec. GT.Nflux)  Nflux  -  Nflux  +  1 
ENDIF 
Return 
END 

Subroutine  Report 

C  this  routine  sets  and  displays  the  report  times 

C - - - - - 

INCLUDE  ' SetHydra . CMB' 

Dimension  Query (2) , Answer (2) , St  ring (2) 

Character  Query *80, St  ring *80, NumSt  r *2 

Logical  BadVal , As kQus 

Data  Nitems/2/, LenQry/60/, Query/ 

i  ' 0500CC  - Specification  of  when  reports  are  to  be  generated', 

&  ' 1201R?  Time  (sec)  of  desired  report'/ 

1  If  (Nreps.Gt.0)  THEN 

If  (AskQus (' Do  you  wish  to  review  a  previously  entered' 

&  //'  time?  (Y/N) :N' //char(8) , .true. , 12) )  THEN 

Call  In2Chr (Nreps, NumSt r) 

Call  Notice (r \Please  enter  which  time  is  needed  (1  to  ' // 

4  NumStr//' ):', .false. , 14) 

Read (* , *, Err-1 )  Ispec 

If  (Ispec. LT. 1 .OR. I  spec. GT. Nreps)  Goto  1 
ELSE 

Ispec  -  Nreps  ♦  1 
ENDIF 
ELSE 

Ispec  -  1 
ENDIF 

5  BadVal  -  .false. 

If  ( Ispec . GT . MaxSe t )  THEN 

Call  Warnin ('Maximum  number  of  times  now  in  memory.  No  more  ' 

6  //'can  be  added true. , 12) 

ELSE 

If  ( Ispec .GT. Nreps)  THEN 
Do  10  I  -  1,2 

10  If  (Query  (I )  ( 5 :  5)  , NE . ' C' )  Query  (I)  (6  :  6)  -  *  ?' 

ELSE 

Do  15  I  -  1,2 

15  If  (Query  (I)  (5: 5)  .NE. 'C' )  Query ( I )  ( 6 : 6)  -  'D' 

Answer(2)  -  RepTim  (Ispec) 

ENDIF 

Call  MenFil (LenQry, Ni terns, Query, Answer,  St  ring,  .  t  rue .  ) 

RepTim (Ispec)  -  Answer(2) 
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If  (RepTim ( I  spec)  .LT.  0 . 0 . OR . RepTim ( I  spec)  .Gt  .TmStop)  THEM 
Call  Mamin  ('  report  times  must  be  >  0  4  less  than  the  ' 
4  //'termination  time' , .true. ,  12) 

Query  (2)  (6  :  6)  -  *  ?' 

BadVai  -  .true. 

ENDIF 

If  {BadVai)  Goto  5 

If  (Ispac .  GT .  Nreps)  Nreps  -  Nreps  ♦  1 
ENDIF 
Return 
END 

Subroutine  StnSet 


C  this  routine  sets  and  displays  the  standard  simulation  settings 

C - 

INCLUDE  ' SetHydra . CMB' 

Dimension  Query (7) , Answer (7) , St  ring (7) 

Character  Query*8G, String"80 

Real  Lo2Rel 

Logical  Rel2Lo, BadVai 

Data  Nitems/7/, LenQry/60/, Query/ 

4  '0500CC  - Miscellaneous  simulation  parameters - * , 

4  '0801LD  Provide  debugging  feedback', 

4  '1002ID  Periodic  check  for  external  abort  command', 

4  ' 120 3RD  Iterative  Tolerance  Limit  (expressed  as  t  e.g.  0.5%)', 

4  '1404ID  Iterative  Pass  Maximum  (e.g.  20)', 

4  '1605RD  Step  Amount  for  Dt  change  (in  fractions,  e.g.  0.05)', 

4  '1806RD  Effective  Zero  Value  exponent  (10**£ZV)'/ 

1  BadVai  -  .false. 

Answer (2)  -  Lo2Rel (Feedbk) 

Answer (3)  -  Icheck 
Answer (4)  ■  TLimit 
Answer (5)  -  ItrLim 
Answer (6)  •  DtStep 
Answer(7)  ■  EffZer 

Call  MenFil (LenQry, Ni terns, Query , Answer, String, .true. ) 

Feedbk  *  Rel2Lo (Answer (2) ) 

Icheck  ■  Answer (3) 

If  (Icheck. LE.O)  THEN 

Call  Warnin (' Abort  command  period  must  be  >  0' , . t rue . , 1 2) 

Icheck  *  5 
BadVai  =>  .true. 

ENDIF 

TLimit  -  Answer (4) 

If  (Tlimit .LE.O. 0. OR. Tlirait.GT. 10.0)  THEN 

Call  Warnin (' Tolerance  Limit  must  >  0%  4  <-  10 . 0%' ,  . t rue . , 12) 
Tlimit  -  0.5 
BadVai  -  .true. 

ENDIF 

ItrLim  -  Answer (5) 

If  (ItrLim. LE.O)  THEN 

Call  Warnin (' Iteration  limit  must  be  >  0' , . true. , 12) 

ItrLim  »  20 
BadVai  -  .true. 

ENDIF 

DtStep  -  Answer (6) 

If  (DtStep. LE. 0.0. OR. DtStep. GT. 1.0)  THEN 

Call  Warnin ('The  Dt  increment  must  be  >  0.0  4  <  1 . 0' , . t rue. , 1 2) 
DtStep  *  0.05 
BadVai  »  .true. 

ENDIF 

EffZer  »  Answer (7) 

If  (Ef fZer.GE. 0.0)  THEN 

Call  Warnin ('The  effective  zero  coeff.  must  be  <  0' , . true. , 12) 
EffZer  «  -30 
BadVai  -  .true. 

ENDIF 

If  (BadVai)  Goto  1 

Return 

END 

Subroutine  Record 

C - - - 

C  this  routine  sets  and  displays  the  standard  simulation  settings 

C - 

INCLUDE  ' SetHydra. CMB' 

Character  Fsave*50, Yes No* 3, NumStr* 1 
1  Call  GtFINra (' Parameters  to  be  saved  to . . . ' , Fsave) 

Open (Unit-12, FIle-Fsave, Status-' NEW' ,Err-l ) 

Write  (12, 1000)  Fprint//'  :  Filename  for  results  storage' 

1000  Format (A) 

Call  St rLen (Rlabel, Length) 

If  (length. LE. 0)  Length  -  1 
Write(12,1000)  Rlabel ( 1 : Length) 

1010  Format (12X, A, '  :',A) 

1020  Format (G15. 8, '  : ' ,A) 

Write  (12,  1020)  Column, ' Column  length  (cm)' 

Write ( 12, 1 020)  TmStop,'Tirae  to  terminate  simulation  (sec)' 

Write (12, 1020)  ThetaS, ' Saturated  Water  Content' 

Write ( 1 2, 1020)  FluxAm ( 1 ) /36C0 . 0, ' Ef fective  Conductivity  (cm/sec)' 
Write (12, 1020)  BulkDn,'Bulk  Density  (gm/cc) ' 

Write ( 12, 1020)  Disper, ' Dispersion  Coefficient  (cm2/sec)' 

Write  ( 12, 1020)  Sponge, ' Hydrazinium  binding  capacity  (meq/gm)' 
Write (12, 1010)  YesNo I lonExB) , 

4  ' — ->  Activate  Ion-Exchange  <---' 
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If  (lonExB)  Write  (12, 1020)  SelH2C, 

&  'Selectivity  of  Hydrazinium  to  Calcium' 

025  ForraatfA,'  :  ',A) 

Write {12, 1010)  YesNo (RevspB) , 

&  ' - >  Activate  Reversible  Sorption  <— ' 

If  (RevspB)  THEN 

Write (12, 1010)  YesNo (Kinetc (1) ), 'Activate  Kinetic  Sorption' 
Write  (12,  1020)  Rsorb (1, 1) ,' Hydrazine  Rate  Coefficient  (kl)' 
Write (12, 1020)  Rjorb (1, 2) Hydrazine  Rate  Coefficient  (k2)' 
Write (12, 1020)  Rsorb  (1, 3) , 'Hydrazine  exponent  Coefficient  (N) ' 
Write  (12,  1020)  Rsorb (1, 4) ,' Hydrazine  Rate  Coefficient  (kf f) ' 
Write  (12,  1020)  Rsorb (1, 5) , 'Hydrazine  Rate  Coefficient  (kbb) ' 
Write (12, 1020)  Rsorb (1, 6) ,' Hydrazine  Rate  Coefficient  (kp)' 
Write  (12,  1020)  Rsorb (1, 7) ,' Hydrazine  Rate  Coefficient  (kq)' 
Write (12, 101 0)  YesNo (Kinetc (2) ) , ' Act ivate  Kinetic  Sorption' 
Write  (12, 1020)  Rsorb (2, l ),' Hydrazinium  Rate  Coefficient  ( kl ) ' 
Write (12,  1020)  Rsorb  (2, 2) , ' Hydrazinium  Rate  Coefficient  (k2)' 
Write (12, 1020)  Rsorb (2, 3) , ' Hydrazinium  exponent  Coef f icient (N) 
Write  (12,  1020)  Rsorb (2, 4 ),' Hydrazinium  Rate  Coefficient  (kff)' 
Write  (12,  1020)  Rsorb  (2,  5) , '  Hydrazinium  Rate  Coefficient  (kbb)' 
Write (12, 1020)  Rsorb (2, 6) ,' Hydrazinium  Rate  Coefficient  (kp)  ' 
Write (12, 1020)  Rsorb (2, 7) ,' Hydrazinium  Rate  Coefficient  (kq) ' 
END  IF 

Write (12, 1010) YesNo(IrrevB) , 

&  *  — >  Activate  Irreversible  Sorption  < — -' 

If  (IrrevB)  THEN 

Write (12, 1020)  Rsorb ( 1, 8) ,' Hydrazine  Rate  Coefficient  (k3)' 
Write (12, 1020)  Rsorb (2, 8) ,' Hydrazinium  Rate  Coefficient  (k3)' 
ENDIF 

Write (12, 1010)  YesNo (MicroB) , 

&  ' — ->  Activate  Microbial  Degradation  <- — ' 

If  (MicroB)  THEN 

Write (12,  1020)  Rdgrad (1, 1 ),' Hydrazine  Rate  Coefficient  (ka) ' 
Write (12, 1020)  Rdgrad (1 , 2) Hydrazine  Rate  Coef f icient  (kb)' 
Write (12, 1020)  Rdgrad (1 , 3) ,' Hydrazine  Rate  Coefficient  (kc) ' 
Write  (12,  1020)  Rdgrad  (1 , 4) ,' Hydrazine  enzyme  level  (Eo) ' 

Write (12, 1020)  Rdgrad (2, 1 ),' Hydrazinium  Rate  Coefficient  (ka)' 
Write (12, 1020)  Rdgrad (2, 2) ,' Hydrazinium  Rate  Coefficient  (kb)' 
Write  (12,  1020)  Rdgrad (2, 3) ,' Hydrazinium  Rate  Coefficient  (kc)  ' 
Write  (12,  1020)  Rdgrad (2, 4 ),' Hydrazinium  enzyme  level  (Eo) ' 
ENDIF 

Write (12, 1010)  YesNo (AutoXB) , 

S,  ' --->  Activate  Auto-Oxidation  < — -' 

If  (AutoXB)  THEN 

Write (12, 1020)  Rautox (1 , 1 ),' Hydrazine  Rate  Coefficient  (ki) ' 
Write (12, 1020)  Rautox (1 , 2) ,' H/urazine  Rate  Coefficient  (kii'' 
Write  (12,  1020)  Rautox (1 , 3) ,' Hyarazine  Rat«  Coefficient  (kiii) ' 
Write  (12, 1020)  Rautox (2, 1 ),' Hydrazinium  Rate  Coefficient  (ki) ' 
Write (12,  1020)  Rautox  (2, 2) ,' Hydrazinium  Rate  Coefficient  (kii) 
Write (12, 1020) Rautox (2, 3) ,' Hydrazinium  Rate  Coefficient  (kiii) 
ENDIF 

Write(12, 1010)  YesNo (HydroB) , 

6  ' - >  Activate  Hydrolysis  Conversion  < - ' 

If  (HydroB)  THEN 

Write (12, 1020)  BasepH,'Base  pH  for  conversion' 

Write (12, 1020)  ArabnpH, ' Ambient  pH' 

ENDIF 

Write (12, 1040)  Nspecs ,' Number  of  boundary  condition  specs' 

040  Format (115,'  :',A) 

Do  10  I  »  1, Nspecs 

CEC  -  Cone  (I,  3)  +  Coned,  5) 

Write(12, 1020)  Depth(I),' - >  Depth  (cm)  < - ' 

Write  (12, 1020)  Cone ( 1 , 1 ),' Hydrazine  in  solution  (meq/cc) ' 

Write (12, 1020)  Cone ( I , 2) ,' Hydrazinium  in  solution  (meq/cc)' 
Write  (12, 1020)  Cone ( 1 , 3) ,' Hydrazinium  sorbed  (meq/g) ' 

Write (12, 1020)  Cone ( I , 4 ),' Calcium  in  solution  (raeq/cc)' 

Write (12, 1020)  Cone ( I , 5) ,' Calcium  sorbed  (meq/g)' 

Write (12, 1020)  Cone < I , 6) , 'Oxygen  in  solution  (meq/cc)' 

10  Write (12, 1020)  CEC, 'Cation  Exchange  Capacity  (meq/g)' 

Write (12, 1020)  Dx,'Dx  -  Nodal  increment  (cm)' 

Write  (12,  1020)  Dt max, ' Maximum  Dt  (secs)' 

Write (12, 1040)  Nf lux, ' Number  of  flux  changes  during  run* 

Do  20  I  -  1 , Nf lux 

Write  (12, 1020)  FluxTm (I ) , 'Time  (sec)  of  flux  change' 

Write (12, 1020)  FiuxAm (I ) , ' Flux  (cm/hr)  imposed' 

Write  (12,  1020)  FIConc (I , l ),' Hydrazine  in  solution  (meq/cc)' 
Write (12,  1020)  FIConc  (1 , 2) ,' Hydrazinium  in  solution  (raeq/cc)' 
Write (12, 1020)  FIConc (I , 3) ,' Calcium  in  solution  (raeq/cc)' 

20  Write (12, 1020)  FIConc (I , 4 ),' Oxygen  in  solution  (meq/cc)' 

Write (1 2, 1 040)  Nreps, ' Number  of  reports  to  be  generated' 

Do  30  I  *  1, Nreps 

30  Write  (12, 1020)  RepTim (I ),' Report  to  be  generated  (sec)' 

Write (12, 1020)  Scale ( 1 ),' BTC  Divisor  scale  factor  for  N2H4' 

Write (12, 1020)  Scale (2) ,' BTC  Divisor  scale  factor  for  N2H5*' 
Write (12, 1020)  Scale (3) ,' BTC  Divisor  scale  factor  for  Ca**' 

Write (12, 1020)  Scale ( 4 ) , ' BTC  Divisor  scale  factor  for  02' 

Write (12, 1010)  YesNo (FeedBk) , 'Feedback  for  debugging' 

Write  (12,  1040)  Icheck, ' abortion  check  periodicity' 

Write ( 12, 1020)  Tlirait ,' Tolerance  Limit  i"  percentage' 

Write ( 12, 1040) It rLim, ' Number  of  passes  before  iterative  failure' 
Write ( 12, 1020)  DtStep, ' Increment  for  Dt  -  fractional' 

Write (12, 1020)  Ef fZer, ' Power  for  approximately  zero  value' 

Close  (12) 

Return 
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END 

Subroutine  GetPar 


C  this  routine  sets  and  displays  the  standard  simulation  settings 


INCLUDE  ' SetHydra . CMB' 

Logical  Str2Lo 

Character  Fsave*50, YesNo* 3, NuraStr* 1 , Aline* 80 

1  Call  GtFlNm (' Parameters  to  be  read',Fsave) 

Open  (Unit* 12, FI le—Fsave, St at us -'OLD' , Err»l ) 
Read<12, 1000)  Aline 
Call  St rBeg  (Aline, I  start) 

Call  St rLen (Aline, lend) 

Do  2  I  ■  Istart,Iend 

If  (Aline  (1:1) .EQ . '  ')  Goto  3 

2  Continue 

3  Fprir.t  *  Aline  (Istart :  I ) 

1000  Format (A) 

Read (12,1000)  Rlabei 
1010  Format (12X, A) 

Read(12,*)  Column 
Read (12,*)  TJnStop 
Read{12,*)  ThetaS 
Reaa(12,*J  ConSat 
Read(12,M  BulkDn 
Read(i2,*)  Diaper 
Read (12,*)  Sponge 
Read (12,1010)  YesNo 

lonExB  -  St r2Lo (YesNo) 

If  (lonExB)  Read  (12, *)  SelH2C 
Read (12, 1010)  YesNo 
RevspB  ■  St r2Lo (YesNo) 

If  (RevspB)  THEN 
Do  10  I  -  1,2 

Read (12, 1010)  YesNo 
Kinetc(I)  ■  Str2Lo (YesNo) 

Do  10  J  -  1,7 

10  Read (12, *)  Rsorb(I,J> 

END  IF 

Read(12, 1010)  YesNo 

IrrevB  -  St r2Lo (YesNo) 

If  (IrrevB)  THEN 

Read (12,*)  Rsorb ( 1 , 8) 

Read (1 2 , * )  Rsorb(2,8) 

ENDIF 

Read (12,1010)  YesNo 
MicroB  -  St r2Lo (YesNo) 

If  (MicroB)  THEN 
Do  20  I  -  1,2 
Do  20  J  -  1,4 

20  Read ( 12 ,  * )  Rdgrad(I,J) 

ENDIF 

Read(12, 1010)  YesNo 
AutoXB  -  Str2Lo (YesNo) 

If  (AutoXB)  THEN 
Do  30  I  -  1,2 
Do  30  J  -  1,3 

30  Read ( 12,  * )  RautoX(I,J) 

ENDIF 

Read(12, 1010)  YesNo 

HydroB  ■  St r2Lo (YesNo) 

If  (HydroB)  THEN 
Read (12,*)  BasepH 
Read(l2,*)  AmbnpH 
ENDIF 

Read(12,*)  Nspecs 
Do  40  I  *  1, Nspecs 
Read (12,*)  Depth (I) 

Do  35  J  -  1,6 

35  Read (12, *)  Conc(I, J) 

40  Read ( 12, * )  CEC 

Read (12, *  >  Dx 
Read(12,*)  Dtraax 
Read ( 12, * )  Nflux 
Do  50  I  -  1, Nflux 

Read (12, •)  FluxTm(I) 

Read ( 12,  * )  FluxAm(I) 

Do  50  J  -  1,4 

50  Read (12,  *>  FlConc(I,J) 

Read(12,*)  Nreps 
Do  60  I  •  1, Nreps 

60  Read (12,  * )  RepTim(I) 

Do  65  I  -  1,4 

65  Read  (12,  *  )  Scaled) 

Read(12, 1010)  YesNo 
FeedBk  -  St r2Lo (YesNo) 

Read(12,*)  Icheck 
Read(12,*)  Tlimit 
Read (12,*)  ItrLim 
Read(12,*)  DtStep 
Read ( 12, * )  EffZer 
70  Close (12) 

Return 

END 
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Subroutine  Sinks 


C  this  routine  allows  the  examination  and/or  alteration  of  standard  source/sink  terms 


INCLUDE  ' SetHydra.CMB' 

Dimension  Option(lO) 

Character  0ption*80 
Integer  Choice 

Data  LenOpt/60/,Niteras/10/, Option/ 

£  'Source/Sink  Effects  on  Hydrazin (e) (ium) ' , ' 

£  '  <0>  Return  to  General  Simulation  Parameters  Menu' , ' 
£  '<1>  Ion-Exchange  (Hydrazium  vs  Calcium)', 
i  '  <2>  Reversible  Sorption', 

£  '  <3>  Irreversible  Sorption', 

£  '<4>  Microbial  Degradation', 

&  '<5>  Auto-Oxidation', 

(  '<6>  Hydrolysis  (Hydrazine  <->  Hydrazium)'/ 

1  Choice  *  MenChc (LenOpt , Nitems, Opt ion,  . true . ) 

If  (Choice. NE.O)  THEN 
If  (Choice. Eq.l)  THEN 
Call  IonExc 

ELSE  If  (Choice. EQ. 2)  THEN 
Call  RevSrp 

ELSE  If  (Choice. EQ. 3)  THEN 
Call  IrrevS 

ELSE  If  (Choice. EQ. 4)  THEN 
Call  MicrDg 

ELSE  If  (Choice. EQ. 5)  THEN 
Call  AutoOx 

ELSE  If  (Choice. EQ. 6)  THEN 
Call  Hydrol 
END  IF 
Goto  1 
ENDIF 
Return 
END 

Subroutine  IonExc 


C  this  routine  allows  the  examination  and/or  alteration  of 


INCLUDE  'SetHydra.CMB' 

Dimension  Query (3) , Answer (3) , St  ring (3) 

Character  Query *80, St ring*90 

Real  Lo2Rel 

Logical  Rel2Lo, BadVal 

Data  Nit era s/3/, LenQry/60/ , Query/ 

&  '0S00CC  - -  Factors  controlling  Ion-Exchange  — -'  , 

£  ' 0701LD  Activate  this  source/sink  effect', 

£  ' 1 202RD  Selectivity  Coefficient  for  Hydraziura->Calcium* / 

1  Answer  (2)  -  Lo2Rel ( lonExB) 

Answer  (3)  -  SelH2C 
Badval  *  .false. 

Call  MenFil (LenQry, Niceras, Query, ANswer, St  ring,  .true.) 

IonExB  »  Rel2Lo (Answer (2) ) 

SelH2C  *  Answer (3) 

If  (IonExB. AND. SelH2C.LE. 0.0)  THEN 

Call  Warnin (' Selectivity  must  be  greater  than  zero' , . t rue . , 1 2) 
SelH2C  -1.0 
BadVal  -  .true. 

ENDIF 

If  (BadVal)  Goto  1 

Return 

END 

Subroutine  RevSrp 


C  this  routine  allows  the  examination  and/or  alteration  of  Reversible  Sorption 


INCLUDE  'SetHydra.CMB' 

Dimension  Query 1 (6) ,Answrl (6) , Strngl (6) 

Dimension  Query2(10) ,Answr2  (10) ,Strng2 (10) 

Character  Queryl*80,Strngl*80,Query2*80,Strng2*80,Hspp (2) *15 
Real  Lo2Rel 

Logical  Rel2Lo, BadVal, Setion (2) 

Data  Niteml/6/, LenQry/ 60/, Query  1/ 

£  '  0500CC  — —  Factors  controlling  Reversible  Sorption - ', 

£  '0701LD  Activate  this  source/sink  effect', 

6  '  0900CC  -—Reversible  sorption  for  Hydrazine - 

£  '1102LD  Alter  or  set  the  rate  coefficients', 

£  ' 1 500CC  - Reversible  sorption  for  Hydra2inium - ', 

£  ' 1703LD  Alter  or  set  the  rate  coefficients'/ 

Data  Nitem2/10/,Query2/ 

£  '  0500CC - -  Factors  controlling  Reversible  Sorption  for - ', 

£  ' 0700CC  ' , 

£  ' 090 1 LD  Use  kinetic  approach  for  reversible  sorption', 

£  '  1002RD  Forward  reaction  rate  coefficient  ( k 1 1 ' , 

£  '1I03RD  Backwards  reaction  rate  coefficient  (k2) ' , 

£  '1204RD  Dissolved  concentration  exponential  coefficient  (N)', 
£  '1305RD  Forward  reaction  rate  coefficient  (kff)', 

£  '1406RD  Backwards  reaction  rate  coefficient  (kbb) ' , 

£  '1507RD  Binding  reaction  rate  (kp)-from  tightly  sorbed', 

£  '1608RD  Binding  reaction  rate  (kq)-from  loosely  sorbed'/ 

Data  Hspp/' Hydrazine' , ' Hydrazinium' / 

1  Answrl (2)  -  Lo2Rel  (RevspB) 

Answrl<4)  -  Lo2Rel  ( . f a  1 se . ) 
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Ar.swrl  (6)  =  Lo2ReI  (.  false . ) 

Call  MenFil (LenQry , Niteml , Query  1, Answrl , St  rngl ,  . t  rue .  ) 

RevSpB  =  Rel2Lo (Answrl (2) ) 

If  (RevSpb)  THEN 

Setlon(l)  *  Rel2Lo (Answrl (4 ) ) 

SetIon(2)  -  Rel2Lo (Answrl  (6) ) 

Do  20  Ion  -  1,2 

If  (Set Ion ( Ion) )  THEN 

Query2 (2) (8 : )  -  Hspp(Ion) 

Answr2(3)  *  Lo2Rel (Kinetc (Ion) ) 

Do  10  I  -  1,7 

10  Answr2 (3+I )  ■  Rsorb(Ion, I) 

Call  MenFil (LenQry, Nitem2,Query2, ANswr2, Strng2, .true. ) 

Kinetc (Ion)  *  Rel2Lo (Answr2 (3) ) 

Do  IS  2  -  1,7 

15  Rsorbdon,  I)  *  Answr2(3*I) 

END2F 

20  Continue 

If  (Set Ion (1)  .OR.Sedw;.  !2) )  Goto  1 
END  IF 
Return 
END 

Subroutine  IrrevS 

C - - — - - 

C  this  routine  allows  the  examination  and/or  alteration  of  irreversible  sorption 

INCLUDE  ' SetHydra . CMB' 

Diraensi on  Query (6) , Answer (6) , St  ring (6) 

Character  Query*90,String*80 
Real  lo2Rel 
Logical  Rel2Lo 

Data  Nitema/6/, LenQry/60/, Query/ 

£  ' 0500CC  Factors  controlling  Irreversible  Sorption  - '  , 

£  '0701LD  Activate  this  source/sink  effect', 

£  '0900CC - Irreversible  sorption  for  Hydrazine-—', 

i  '1102RD  Forward  reaction  rate  coefficient  (k3)'f 

£  '140QCC  - Irreversible  sorption  for  Hydrazinium - ', 

£  ' 1603RD  Forward  reaction  rate  coefficient  <k3)'/ 

1  Answer(2)  -  Lo2Rel  (IrrevB) 

Answer(4)  -  Rsorb(l,8) 

Answer (6)  -  Rsorb(2,8) 

Call  MenFil (LenQry, Ni tens, Query, ANswer, String, .true.) 

IrrevB  *  Rel2Lo (Answer (2) ) 

Rsorb (1,8)  =  Answer(4) 

Rsorb (2,8)  »  Answer (6) 

Return 

END 

Subroutine  MicrDg 

C - - - 

C  this  routine  allows  the  examination  and/or  alteration  of 

C - 

INCLUDE  'SetHydra. CMB' 

Di  "tension  Query  (12)  , Answer  (12)  ,  String(12) 

Character  Query *80, St ring*80 

Real  Lo2Rel 

Logical  Rel2Lo, 3adVal 

Data  Nitems/12/, LenQry/ 60/, Query/ 

£  '0500CC  - -  Factors  controlling  Microbial  Degradation  - ', 

£  '0701LD  Activate  this  source/sink  effect', 

£  '0900CC  — -Microbial  Degradation  fcr  Hydrazine - ', 

£  ' 1002RD  Forward  rate  coefficient  to  complex  (ka) '  , 
i  ' 1 1 03RD  Backwards  rate  coefficent  from  complex  (kb)', 

&  ' 1204RD  Forward  rate  coeffcient  to  product  (kc)', 

£  ' 1305RD  Size  of  enzyme  complex  (Eo)', 

£  '  1500CC  —Microbial  Degradation  for  Hydrazinium - ', 

£  '1606RD  Forward  rate  coefficient  to  complex  (ka)', 

£  '1707RD  Backwards  rate  coefficent  from  complex  (kb)', 

&  '1808RD  Forward  rate  coeffcient  to  product  (kc)', 

£  '  1909RD  Size  of  enzyme  complex  (Eo)  '  / 

1  Answer  (2)  -  Lo2Rel (MicroB) 

Do  10  I  -  1,4 

Answer(3+I)  -  Rdgrad(l,I) 

10  Answer(8+I)  -  Rdgrad(2,I) 

Call  MenFil (LenQry, Ni terns , Query , ANswer, St  ring, . true . ) 

MicroB  ■  Rel2Lo (Answer (2) ) 

Do  20  I  -  1,4 

Rdgrad(l,I)  ■  Answer(3+I) 

20  Rdgrad(2,I)  *  Answer (8+ I ) 

Return 

END 

Subroutine  AutoOx 


C  this  routine  allows  the  examination  and/or  alteration  of  auto-oxidation 


& 

£ 

£ 

£ 


INCLUDE  'SetHydra. CMB' 

Dimension  Query  (10) , Answer (10) , St  ring ( 1 0) 

Character  Query*80, St ring*80 

Real  Lo2Rel 

Logical  Rel2Lo, BadVal 

Data  Nitems/10/, LenQry / 60/ , Query/ 

'  0500CC - -  Factors  controlling  Auto-Cxidation  ---'  , 

'0701LD  Activate  this  source/sink  effect', 

'  0900CC - Auto-Oxidation  of  Hydrazine - ', 

'1002RD  Forward  rate  coefficient  to  complex  (ki)', 
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6  '1103RD  Backwards  rate  coefficent  from  complex  (kii)', 
&  ' 12C4RD  Forward  rate  coeffcient  to  product  (kiii)', 

&  '15C0CC  - — Auto-Oxidation  of  Hydraziniura---' , 
i  '16Q5RD  Forward  rate  coefficient  to  complex  (ki)', 

&  '1706RD  Backwards  rate  coefficent  from  complex  (kii) ' , 
4  '1807RD  Forward  rate  coeffcient  to  product  (kiii)'/ 

1  Answer (2)  •  Lo2Rel (AutoXB) 

Do  10  I  -  1,3 

Answer (3+1)  -  RautoX(l,I) 

10  Answer (7+1)  -  RautoX(2, 1) 

Call  MenFil (LenQry, Nit eras , Query ,  ANs we r, St  ring, . true . ) 
AutoXB  *  Rel2Lo (Answer (2) ) 

Do  20  I  -  1,3 

RautoX(l,I)  *  Answer (3+1) 

20  RautoX(2,I)  ■  Answer(7+I) 

Return 

END 

Subroutine  Hydrol 

C - - - 

C  this  routine  allows  the  examination  and/or  alteration  of 


INCLUDE  ' SetHydra. CMB' 

Dimension  Query (4) , Answer (4) , String (4) 

Character  Query*80, String* 80 

Real  Lo2Rel 

Logical  Rel2Lo, BadVal 

Data  Nitems/4/, LenQry/60/, Query/ 

4  '0500CC  Factors  controlling  Hydrolysis  - 

&  ' 07Q1LD  Activate  this  source/sink  effect', 

4  '0902RD  Critical  base  pH  value', 

&  '1103RD  Ambient  pH'/ 

1  Answer (2)  -  Lo2Rel (HydroB) 

ANswerU)  -  BasePh 
Answer (4)  -  ArabnPh 
Badval  •  .false. 

Call  MenFil (LenQry, Ni terns, Query , ANs we r, String, . true . ) 

BasePh  “  ANswer(3) 

AmbnpH  *  Answer (4) 

If  (BasepH . LT . 1 . 0 .OR. BasepH . GT. 14 . O.OR. 

&  Ambr.pH.  LT.  1 . 0  .OR.  AmbnpH. GT.  14  .  C)  THEN 

Call  Warnin('pH  must  be  between  1.0  and  1 4 . 0' , . t rue . , 12) 

3adVal  -  .true. 

ENDIF 

If  IBadVal)  Goto  1 

Return 

END 

Subroutine  PoreVl 

- - 

C  this  routine  allows  the  conversion  into  pore  volumes 

INCLUDE  ' SetHydra. CMB' 

Logical  AskQus 

PVlsec  ■  ThetaS*Column* 3600 . 0/FluxAm ( 1 ) 

Call  Noticel'You  may  have  entered  times  in  pore  volumes', 

4  .  t rue. , S) 

Call  Vtab (8) 

Write!*, 1000)  ('Flux  changes  at : ' , FluxTm ( I ) , FluxTm (I) * PvlSec, 

4  i*l, Nf lux) 

Write  (*,  1000)  ('Reports  at  : ' , RepTim ( I ) , RepTira (I ) *PvlSec, 

4  I*l,Nreps) 

Write {*, 1000)  'Termination  at  : ' , TmStop, TmStop*PVLSec 
•  1000  Format  (2X,A,G12. 5,'  pvl  — >  ',G12.5,'  sec') 

If  (AskQus ('Do  you  wish  to  make  these  conversions?  (Y/N)  :  Y' 

4  //char (8) ,. false. ,20) )  THEN 

Do  10  I  -  1 , Nf lux 

10  FluxTm (I)  -  FluxTm (I) *PVLSec 
Do  20  I  *  l,Nreps 

20  RepTim ( I )  -  RepTim ( I ) -PVlSec 

TmStop  *TmStop*PVLSec 
ENDIF 
Return 
END 

- --——NOTE:  See  UTILITY  SUBROUTINES  for  any  routines  used  here  that  are  not  included  here- 
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Program  for  simulation 


hydrazin  (ef  (iu.nl  movement  in  a  saturated  column 


Adsorb ( 2,  MaxNod) 

AmbnPh (MaxNod) 

ApprxO 
AutoOx 
BalSol 
9a ISor 
3asePh 

BdCper.  (2,  MaxNod) 

Bound ( 2 , MaxNoa ) 

3uikdr» 

Cact  (Maxi or.) 

CO i 3  3V (Max I  on,  MaxNod) 
Cecfix 

Cinit .Maxlon) 

ColDep (Max Set) 

Col I  on tMaxSet, Maxlon, 2) 

Column 

Co.nSat 

Cprec (Maxlon, 0:1) 

Dsorb (Max  Ion, MaxNod) 
Diagor. (MaxNod) 


5(0: Maxlon, 0:1) 
t  (2,  Maxlon,  0  :  A  I 


> (2, MaxNod) 

(0: Maxlon)  1 

a (C: Maxlon) 

» (MaxSet, 0 : Maxlon) > 
MMaxSet) 


* (Maxlon) 
» (Maxlon) 


i  (2, MaxNod) 
i  (2, MaxNod) 
l  (Max  I  on, MaxNod) 
( (2, MaxNod) 

; 

:  (Maxlon, MaxNod) 
:  (MaxNod) 


HYDRAZIN  Variable  Dictionary 

amount  of  material  absorbed  at  each  node  (l»old,  2-now) 
ambient  pH  at  each  node  -  usedin  hydrolysis  calculations 

approximately  zeco  -  the  effective  floor  which  should  be  slightly  non-zero 
boolean  for  auto-oxidation  (true  ->  auto-oxidation  does  occur) 
total  solute  in  the  system  -  used  in  mass  balance  calculations 
total  sorbed  material  in  the  system  -  used  in  mass  balance  calculations 
case  pH  value  used  in  hydrolysis  calculations 

fcoolear.s  indicating  whether  there  is  any  remaining  capacity  to  bind  at  each  node 
the  amount  of  hydra zinium  bound  permanently  at  each  node 
buik  density  (gm/cc) 

the  Known  (inflow  ♦  initial  “ntents)  amount  of  each  ion  in  the  system 
the  solute  concentration  (meq/cc)  for  each  ion  at  each  node 
the  total  cation  exchange  capacity  at  each  node 

the  initial  amount  of  each  ion  in  the  system  at  the  start  of  the  simulation 
the  depth  corresponding  to  each  boundary  condition  specification 
the  concentration  (meq/cc)  of  each  ion  at  each  boundary  condition  specification 
the  length  of  the  simulated  column  in  cm 
saturated  conductivity  (cm/sec) 

the  predicted  (outflow  ♦  current  contents)  amount  of  each  ion  in  the  system 
the  sorbed  concetration  (meq/gra)  of  each  ion  at  each  node 

the  vector  holding  the  diagonal  elements  of  the  tridiagonal  solution  system 

dispersion  coefficient  (cm**2/sec) 

the  current  time  increment  (delta  T)  (sec) 

boolean  indicating  the  need  to  change  the  Dt  (if  true) 

the  amount  that  Dt  will  be  decremented 

boolean  indicating  the  direction  of  Dt  change 

the  value  of  Dt  before  the  change 

the  maximum  value  that  Dt  Is  allowed  to  assume 

the  minimum  value  that  Dt  is  allowed  to  assume 

the  time  needed  to  change  Dt  from  Dtmin  to  DtMax 

boolean  indicating  that  Dt  is  to  be  changed 

the  fraction  of  Dtraax  to  be  added  to  Dt  if  the  change  is  ascending 

the  sum  of  all  Dt  values  throughout  the  simulation  (used  in  calculating  mean  Dr) 

the  distance  betwen  nodes  (cm) 

the  percent  error  for  each  ion 

a  set  of  min/max/sum/sum-of-squares  values  for  reporting  extremes  of  certain  variables 
file  name  for  the  breakthrough  values  (15  characters) 

boolean  used  to  turn  on  (.true.)  or  off  (.false.)  debugging  statements 
the  concentration  (meq/gm)  of  tighly  bounded  absorbed  material 
the  cumnulative  amount  (meq)  of  each  ion  that  has  entered  the  system 

the  cummulative  amount  (meq)  of  each  ion  that  has  left  the  system 

the  input  flux  (0)  or  concentrations  (1.. Maxlon)  for  each  f lux/concet rat  ion  change 
the  time  (sec)  at  which  each  flux/concent ’•ation  change  time  occurs 
the  filename  for  th“  report  (results)  information  (15  characters) 
boolean  indicating  that  ion  exchange  is  to  occur  (when  .true.) 

the  amount  of  hydrazin (ej  (ium)  converted  to  the  other  form  upon  entry  into  the  system 

the  total  amount  of  hydrolysis  conversion  that  has  occurred 

boolean  indicating  that  hydrolysis  is  to  occur  (when  .true.) 

indicates  how  frequently  the  abort  file  should  be  checked 

a  pointer  that  indicates  which  of  the  flux  changes  is  currently  active 

indicates  which  of  all  possible  ions  in  the  system  is  in  fact  the  1st  active  ion 

the  counter  of  the  number  of  completed  time  steps 

boolean  indicating  whether  irreversible  sorption  is  to  take  place 

pointer  indicating  which  of  the  report  times  is  the  next  to  be  active 

the  iterative  limit  -  the  number  of  times  the  system  will  attempt  to  find  a  converging  solution 
stores  the  cummulative  number  of  iterations  needed  to  acheive  a  convergent  solution 
=  booleans  indicating  that  a  kinetic  (as  opposed  to  an  equilibrium)  approach  is  to  be  used  (N2H4 

counter  of  the  number  of  iterations  after  a  flux  change  (if  <  10,  then  Dt  stays  at  Dtmin) 
maximum  number  of  ion  in  the  system  (-4  :  N2H4,  N2H5+,  Ca  +  *,  .4*  in  that  order) 
maximum  number  of  nodes  in  the  system  (=2C2) 
maximum  number  of  reports  allowed  (-10) 

maximum  number  of  boundary  condition  specification  sets  allowed  (-7) 
boolean  indicating  whether  microbial  degradation  is  to  be  used 
accumlates  the  number  of  Dt  changes  and  is  used  to  calculate  the  mean  Dt 
number  of  flux  changes  to  occur  during  the  simulation 
number  of  ions  in  use 

total  number  of  ions  in  the  system  (*4) 
the  number  of  nodes  in  the  system 

the  number  of  reports  requested  during  the  simulation 

the  number  of  boundary  condition  sets  used  to  setup  the  system  initially 

the  old  (previous)  adsorbed  amounts  for  the  2  hydrazine  species  at  each  node 

the  old  (previous)  permanently  bounded  amounts  for  N2H4  and  N2H5*  at  each  node 

the  old  (previous)  dissolved  material  for  each  ion  at  each  node 

the  old  (previous)  tighty  bound  material  for  N2H4  and  N2H5*  at  each  node 

the  old  (previous)  flux  into  the  system 

the  old  (previous)  material  sorbed  (in  the  CEC)  for  each  ion  at  each  node 
the  oxygen/hydrazin  complex  used  in  autooxidation  calculations 
the  cummulative  amount  of  water  that  has  left  the  system  (pore  volumes) 
rate  coefficients  for  irreversible  sorption  (N2H4  6  N2H5+  -  1st  order  only) 
rate  coefficients  for  reversible  sorption  (N2H4  &  N2H5*,  where: 
v 

I  (3*nonl inearl ty  exponent  for  -(!)-> 


I  Dissolved  I - ( i )  — >  (  Loosely  (—  (41  — >(  Tightly  ! (7)  — >  |  Permanently  ( 

I  Phase  l  <--(2) - 1  Sorbed  l< — (5) 1  Sowed  !  *-(6) — >!  3ound 


RautoX  (2,  3) 
Requil (2) 
Result (MaxNod) 
Reve  rs 
Rlabel 


-  auto-oxidation  coefficents 

-  equilibrium  coefficents  (replacing  -(l)->  5  <—  < 2 )  —  for  N2H4  &  N2H5*) 

-  result  vector  used  in  the  tridiagonal  solution 

-  boolean  indicating  that  reversible  sorption  is  to  be  used 

-  80  character  string  labeling  the  particular  simulation 
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Rm.icrc  i2,  4) 
SbSiag  (MaxN'cd) 
SCa2Hy 

Scale  (Max lor.) 
Solute  lO  :Max  lor.) 
SpDiag (MaxNod) 
Sponge 

SrbOut (Max  I  on) 

TheCaS 

Time 

Tlevel 

TmLast 

Tm.Repr  1C :  Max Sep) 

Tm.Span 

Tmstop 

TotNow  (Maxtor.,  5 ' 
Use!  or.  (Max  Ion) 
Vaier.c  (Max  I  or.) 
Veloc 
Wir.it 


“  rate  ccefficents  for  microbial  degradation  (for  N2H4  a  N2H5  +  witr.  only  (.,1)  active 
=  vector  bonding  the  subdiagona!  coefficients  for  uae  in  the  tridiagor.al  solution 
=  selectivity  value  between  Ca*  +  and  N2H5* 

*  divisors  of  output  concent  rations 

=  text  strings  for  the  various  active  er.  ties  (water,  S2H4,  N2HS»  ,  Ca  +  *,  H*  J 

■  vector  holding  the  super-diagonal  coefficer.ts  for  the  tridiagonai  solution 

-  maximum  capacity  to  permanently  bind  .V2H5+  at  each  node 

■  total  amount  of  material  lost  to  the  system  due  to  sorption 

-  saturated  water  content 

-  value  of  the  simulation  clock  (sec) 

»  tolerance  level  (in  percent ) -solution  is  accepted  when  max  diff  at  any  node  between 
sucessive  solutions  drop  down  to  or  below  this  value 

-  last  time  at  which  a  breakthrough  point  was  generated 
=  times  at  which  reports  are  to  be  generated 

=  time  span  between  breakthrough  points 
=  time  to  stop  the  simulation 

■  holds  the  totals  (meq)  in  the  various  simulated  compartments 

-  booieans  which  indicate  whether  a  given  ion  i 3  active 

■  valences  of  the  various  ior.s 
3  pore  water  velocity 

•  initial  water  total 
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I rap  I ;  cit 


Double  Precision  (A-H,0-2) 


Da:  are*.  er  (Max  I  >r. ,  MuxM-;  d-202,  MaxSet-*/,  MaxRep-IC) 

Common  "Tone  rl  /ApprxC,  Cec i  ix,  CoLumn,  Dt,  Dtmax,  Strain,  DtStep,  Ux, 

4  Ichecx, lonlst,Irepet, Itmpt  r, It rLim, N inUse , Nions, 

4  Nodes,  Nrepr , PoreVi , Scale (Max  Ion) , ThetaS, Time, 

4  Ti eve ; , TmLast , TmHepr (0 : Max Rep) ,  Tmstop,Winit, 

4  Dt  Dec  r,  Dt  Last  ,  Dt  Span,  01  dr  1  x ,  Lex  Own,  Sponge 

Common  /  I:  r  r ■  » r  3  -H.i  1  So  1 ,  -la  1  So  r,  Cact  (Max  I  o~  J  ,  Cp  r  ed  (Max  l  on,  0:1), 

4  L  a  j-  ,  H  r  :  u  r  s  (  0  :  Max  I  -  r;,  1 :  i  )  ,  Ext  rem  (? ,  Max  I  on,  C  :  4  l  , 

»  1 1  r  Dr  x  (  3  C )  ,  Not  S  ,  Tot  Now  (Maxi  or; ,  b ) 

.mr  r  'r' 1  :x  '  r".  .x*;r  (MaxSe*  I  ,  F 1  ux.ira  MaxSet ,  1  '  Max  1  ;nj  ,  N :  .x  ,  1  !  1  x 

*  Tr Spar;,  Ve  1  oc 

Common  /  I  or.  a  /CD;  asv  (Max  I  on,  MaxNod)  ,  OldDi  s  (Max  I  on.  Max  Nod)  , 

4  C»orb (Max I  on, MaxNod) ,01 dSor (Max  I  on,  MaxNod)  , 

4  Adsorb  ( 2 ,  MaxN  xl)  ,  U;  dAas  (?,  MaxNod)  ,  Valenc  (Max  I  or.)  , 

4  F;  xSrfc  ( ? ,  MaxNod )  ,  c  .  df'i  x  (?, MaxNod )  ,  Hound  (?, MaxN  <  j  i 

4  131  liir.d  (?,  MaxNod)  ,  HdOpen  (2 ,  MaxNod ) 

■'  r-cr.  / 1.  ;-; .  -s  '  A  Or.  A 1  t  r,  Dt  Down,  Dt  Dt  a  r ,  -  eodbx,  C.>1  or.X ,  Hydr  o  1 , 

*  1  r  revs ,  :  not  c  (?)  ,  Mi  c  rob,  Revo r  s ,  Use  1  on  (Max  1  or. I 

D  -mm on /Ma  ;:.a  1  ■  D 1  r. .  t  (Max  1  or. )  ,  r  ;  ow i  r.  (0  :  Max  1  on)  ,  F  1  owou  (0  :  Max  I  on )  , 


*  nyo  r  1 N  (Max  I  or.  I  ,  iiy  j  r.'.a  i Max  I  on )  ,  S  r.uOut  (Max  on ) 

tvs  or.  /  Set  up  /Col  I  on  (Max Set ,  Ma x I  on,  ?  J  ,  Co  i Dep  (Max Sot  )  ,  Ns  per: s 
Corm'.n  /Sol  .  /Hoi  nor. ,  Co.nSat ,  I.  i  ape  r,  SCa?Hy 

Cor.T  . :./Pnt •rs  /A.-r;:D'h  (MaxNod )  ,  HaseP.n, OxNitr  (MaxNod)  ,  Rat  1  rv  (?)  , 

4  Rat  Rev  (2,7),  RautoX  (2,  3 )  ,  Requi  1  (2 )  ,  Rmi  c  rb  (? ,  4 ) 

Common /T ri Da t /SbOi ag (MaxNod) , Di agon (MaxNod) , SpDi ag (MaxNod)  , 

4  Resul t (MaxNod) 

Common /Comchc/Fbrkt h, Fprint, R label , Sol ut  e (0 • Max  I  on) 

Cha  racter  Rlabel*90, So lute“l6, Fprint *15, Fb  rkTh* 1 5 
Log  1  ca  1  Aut  oOx ,  Dt  A 1 1  r,  DtDown,  Dt  St  a  r ,  Feedbic ,  Co  lonX  ,  hydro  1 ,  I  r  revs, 
4  K !  netc.  Ml  c  rob,  Severs,  Use  I  on,  BdGpen 


F'OHTHAS  7  7  code  for  HY’JRAZ  l  N 


PROGRAM  i'.ydraz 

Dr.  Steprien  A.  Bloom  -  for  Dr.  Robert  Manse..,  Ho;;  Science  Ol/lh/99 


:  NCLUDF.  '  hydra  / ; r. .  .MB' 

Cal.  Start ? 

- Rr-t'KAI . . . . 

‘■0  Call  DtCr.ar. 

T 1  Mil  *  ;  ;mk  ♦  DT 
I  REP FT  -  1 HERE?  *  I 

PoreVi  -  r'lowOu(O)  /  (Co  l  umn*  Tr.etaS) 

Call  ChfcFI x 

IF  (Time.  UK. TMRF.PR  ( I  tmpt  r)  )  THEN 
Call  Rep  I  on 
Call  RepP  rf 
FIND  IF 

If  (PoreVi  .  CT.  1  .  0F.-06)  THKN 

If  (Dabs  (  TmSpan)  .  LK  .  1 . OE-06 )  TmSpan  *  (TmSt  op-Tl  me)  /  ?fi0 
IF  (Ti  ne-Tml.a  st  .  CT  .  TmSpan)  Call  BrkOut 
END  IF 

If  (Time.  LT.  TmStop)  THF.N 
Call  Sol Mov 

If  (  .  Not  .  Dt  A  1  t  r  .  AN!)  .M*JD  ( l  repet ,  10)  .  F.Q  .  ’.  )  Ca  i  1  Mba  1-  *. 

FiowCu(O)  *  FlowOtj(U)  *  Dt  'ConSat 

IF  (Time . LT . TmStop)  SOTO  30 
Call  BrxRep 
Cali  Rep  1 1 r 
Call  Rep Ext 

If  (NdtSum. CT . 0)  W r It e ( \ ?, 1 0 4 0)  NdtSum, DtSum/Ndt Sum 
IC40  Format  (/,'  Dt  values  used:  ',[S,'  Average  Dt :  ',G12.5) 
CLOSE (12) 

Close (14) 

END 

SUBROUTINE  Sol Mov 


•'read  t  r.e  si  mu  i  at  :  *.r.  r  :  a  r  . . .  s  ■» 

(crifick  wbetru.T  Dt  n«‘ed;t  •r.v,g!,-j; 

(increment  the  o 1  or  * • 

(increment  the  iteration  omn'  *-r  • 

(set  the  pore  volume! 

(chec<  for  flux  changes) 

I  chock  if  a  report  is  needed! 

(generate  an  error  4  profile  report/ 

(generate  an  extract  of  the  profi.cj 

(if  breakthrough  nas  occurred,  get  •  he 
C  'spacing  .needed  for  tne  ore.-jnt.-.ru  curve. 

; generate  a  point  >f  the  RfC  wnen  neede  i  • 

(if  current  time  ;s  .ess  than  tne  ter mina’c  t.m«*» 
(simulate  the  i  or.  excT.ar.ge  • 

•  periodically  output  in  <•  r  •  ,r  • 

(  t  rack  water  moverrrrnt  out  ■>!  .-.•:) 

‘until  the  t ••ruinate  pore  vo.  .-••  1  n  atta.red* 
(produce  the  breax-t.hroi.gr.  r  ••:■•>.■*  ; 

(report  the  iterative  tract*  percent  ages  '■ 

(report  the  min/max  va.uesl 
(report  the  average  I)t  value! 

‘close  the  report  unit  4  t he  profile  un:f  « 


s  routine  calls  the  routines  that  perform  the  simtjlatlon  and  coordinates  the  sequence  of  ca 1 cui a t 1 ons . 


INCLUDE  ' Hydra z In. CMB' 

Logical  PvDone 
Dimension  So  1  I np (Max  I  on) 

Do  10  Ion  ->  I  ,  N l ons 

Sollnp(lon)  ■*  Flux  Am  ( I  f  1  xi’t ,  Ion) 

If  (  LcxDwn  .  I,F. .  1  0 )  Soilnp(lon)  -  FI  uxAm  ( I  f  1  xpt  -  1 ,  I  on)  • 

4  { FI uxAm ( I f 1 xpt , I  on) -Flux Am ( I f 1 xpt - 1 ,  i on) ) • LcxDwn/ 1 0 

If  ( I  repet . CE. ?0)  Call  Mi nMax (Errors ( Ion, 1 ), Ion, 1 ) 

DO  10  I DEP  -  l, Modes 

If  I :  or. .  OF. .  ?  .  AND  .Ion.  Lrl .  3 )  THEN 

0  I  dSo  r  ( !  on,  I  dep )  -  Csor  b  ( I  or.,  I  dep  i 
la  .  1  MI  rJ^ax  (Csorb  ( I  on,  1  lep)  ,  Ion,  i) 

END  IF 

If  (Ion. LE . ? I  THEN 

O  i  dAd  s  ( I  on,  I -Jep)  ••  Adsorb  ( Ion,  I  dep) 

01  df’i  x  ( Ion,  idep)  -  F!  x.'irn  ( Ion,  I  dep) 

O I  d.Hr.d  (  I  on ,  I  dep)  -  Hound  (  I  on,  I  d«*p ) 

END  IF 

fall  Ml  r.Max  (Cd  1  ssv  (  Ion,  1  lop)  ,  Ion,  ?) 

01  dD  i  s  (  I  on,  I  DKI* )  -  Cll  ,iiv(  !')n,  K.KI'I 
Dt  Sum  -  Dt.  sum  *  Dt 
N lit  sum  -  MDtSum  •  1 


‘this  vector  stores  trie  cur  rent  ;r;p.t  •:>»»*.<■♦■/  t  :  i»  .  -  s 
(for  all  ions,  transfer  the*  j  rp-.it  oncer'  •  r  .ons  • 
(into  DOLINP  If  going  ir.to  a  f  .  ux  'f.ir-.g*-,  ! 

(Ease  into  flux  criange  tiy  steps) 

(monitor  mln/max  errors  after  iterations! 

I  for  ail  nodes  in  the  ■■•ol'xn  .  .  I 

( a  '■'d  .or  ions  ;  r.  t  n.<*  .on  exchange  >.NV:i  •  4  '.i"l  i 

■transfer  the  current  va  1  ;es  t  :>  •  fu*  Li;  arri/s  *  . 
Update  mln/max  for  ’.he  sorned  ce.rp.*  r  ‘  me.*:*  • 

(transfer  hyd  r  a  /  i  r.  (e  |  (  i  urn  )  sorbed  materia. 


•  <io  *  he  same  f  o  r  s  •  .  .'  .  -  c  v.t  .  •  •  s  i  !  .  .  'vi  4 

■  move  tne  '-ir  rent  va  i  ;•••»  ,?■•  •  r.«*  ’  i  1*  array1 

‘track  t  he  DT  vai ue l 
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I  pa as  =  C 

If  l  Kyi  roil  Call  Conlnp  (Sol  Ir.p  U  ) ,  Soi  Inc  (2  )) 

RvDcr.e  =  .false. 

15  Cor.Vrg  =  C.  0 

Do  20  Ion  »  l,Nlona 

20  If  (Uselor.  (Ion)  )  Call  Sol  I  on  (I  or.,  Sol  Ir.p  (Ion)  ,  Convrg,  Ipass) 
If  (GoIonX)  Call  Exchar.g 

Ipaaa  -  Ipaaa  ♦! 

If  IRevera .AND. (Kinetc (1 ) .OR. Kinecc (2) ) )  THEN 
Call  RevAds 
RvDone  *  .true. 

If  (Ipass . EQ . 1 .CR. 

4  ( Ipaaa  .  LT  .  It  rLirr.  .AND .  Convrg .  GT  .  Tlevel)  )  Goto  15 

It  rTrit  ( Ipaaa)  -  1 1  rTrk  { I  pass  1  *  1 
If  ( .  Sot .  RvDor.e .  AND .  Revets )  Call  RevAds 
Co  30  Ideo  =  2,Node3-i 
Do  30  Ion  *  1,2 

If  (AutoOx)  Call  OxyEat (Cdissv (Ion, Idep) ,OxNitr (Idee) , 

£  Cdi  ssv  (4,  loep) ,  lor.,  Idep) 

30  If  (Hydrol ) Cali  Conver (Cdissv (I , Idep) , Cdi ssv (2, Idepl  I 

Do  45  Idep  »  2, Nodes- 1 
DO  45  Ion  *  1,2 

45  SrbCut(Ion)  *  SrbOut(Icn)  *  (Ratlrv(Ion)  *  Rmicrb (Ion, 1 ) ) 

i  Dt  •  (Cdissv  ( Ion,  Idep)  *CldDi3  (lor.,  Idep)  )•  0 . 5  *  Dx  *  Thet 
DO  50  Ion  *  l,Nior.s 

FLCWINdor.)  =  FLCWIN(Ion)  *  FluxAr.  (I  f  Ixot ,  0)  *  Sol  Ir.p  (I  on  * 
AvConc  =  (Cdissv  (lor.,  Nodes-l )  ♦  Cdissv  ( Ion,  Nodes)  ♦ 

4  CldDis  (lor.,  Nodes-l)  *  OldDis  ( Ion, Nodes)  ) /4 . 0 

50  FLCWCU(Ion)  ■  FLCWCU(Ion)  +  Cor.Sat  •  DT  •  AvCor.c 
RETURN 
END 

Double  Precision  Function  Rkintc (Idep, Ion) 


•;if  using  hydrolysis,  so  it  on  the  input  values' 

•  =  reversible  sorptior.  rot  yet  calculateo; 
ih.oi.ds  the  maximum  error  retween  sucessive  trials; 

(solve  the  transport  equations  for  ail  ions) 
(perform  ion-exchange  and  for  the  N2H4  &  N2H5+...) 

(if  doing  reversible  sorption  &  at  least  1  hydrazine) 
(is  kinetic,  calculate  the  reversible  effect  4  set) 
(the  flag  to  true) 

•it's  the  1st  pass  or  the  passes  have  not  exceeded  the) 
(limit  but  no  convergence  yet,  so  try  again...) 
(note  the  number  of  iterations  needed) 

(if  needed,  do  the  reversible  sorptior.  calculations) 
•  for  all  internal  nodes  in  the  column  &  the  hydrazine j 

■species,  allow  autoxidation  &  hydrolysis  if  being  used) 


(for  mass  balance,  calculate  the  amount  screen 
{ irreversibly } 

(MASS  BALANCE  CALCULATION'S.  .  .  '• 
the  amount  that  has  entered  is  tr.e  flux  •  DT) 
(the  average  concentration  across  the  bote  on • 

(amount  that  left  =  flux  •  dt  *  average! 


C  This  routine  handles  reversible  sorption  for  the  kinetic  version 


INCLUDE  ' Hydrazin. CMB' 

Rkintc  -  0.0 

If  (Revers . AND. Ion . LE . 2 . AND .  (if  doing  reversible  sorption,  for  a  hydrazine  spp.  j 

&  RatRev (Ion, 1) “RatRev (Ion,  2) “RatRev (Ion, 3) .G7. ApprxO)  THEN  (with  positive  rate  coefficents  &  kineticaily . . . . ) 

If  (Kinetc  ( Ion) )  Rkir.tc  - 

4  Dt  *  (-RatRev ( Ion, 1 )  *  CDMean ( Ion, Idep) * ‘RatRev ( Ion, 3 )  *  iset  up  the  appropriate  factor) 

4  BuikDn  ■  RatRev ( Ion, 2)  *  AdMean (Ion, Idep )  /  ThetaS) 

ENDIF 

Return 


Double  Precision  Function  RequlK ( Idep, Ion) 


C  This  routine  handles  reversible  sorption  -  Equilibrium  Version 


INCLUDE  ' Hydrazin. CMB' 

RequlK  -  0.0 

If  (Revers. AND. Ion. LE. 2. AND.  (if  doing  reversible  sorption,  for  a  hydrazine  spp) 

4  Requil (Ion) *RatRev(Ion, 3) .GT. ApprxO)  THEN  (with  positive  equilibrium  rate  coefficients...) 

If  {. not . Kinetc  (Ion) )  RequlK  - 

4  BuikDn  *  RatRev (Ion, 3)  •  Requil (Ion)  *  (set  up  the  appropriate  factor) 

4  CDmean ( Ion, Idep) ••  (RatRev  ( Ion, 3) -1 . 0)  /  ThetaS 

ENDIF 
Return 
END 

Double  Precision  Function  Decayl(Ion) 

C - 

C  This  routine  handles  Irreversible  Decay 


INCLUDE  * Hydrazin . CMB' 

If  ( Ion . LE. 2 . AND . I rrevs )  THEN  (if  doing  irreversible  sorption  for  a  nydrazine 

Decayl  ■  Dt  "  Ratlrv(Ion)  (spp,  set  up  the  factor) 

ELSE 

Decayl  ■  0.0 
ENDIF 
Return 
END 

Double  Precision  Function  DecayM(Ion) 

C - - 

C  This  routine  handles  Microbial  decay 

- - 

INCLUDE  'Hydrazin. CMB' 

If  ( Ion . LE. 2 . AND . I rrevs)  THEN  (see  comments  for  DECAY I ) 

DecayM  ■  Dt  *  Rmicrb ( Ion, 1 ) 

ELSE 

DecayM  -  0.0 
ENDIF 
Return 
END 

SUBROUTINE  Sollon ( Ion, Concln, Convrg, Ipass) 

- - 

C  This  routine  calculates  the  ion  transport  equation  using  a  finite-difference,  tri -diagonal  approach. 


INCLUDE  'Hydrazin. CMB' 

Dfactr  *  Di sper*Dt / (2 . 0*Dx *Dx) 

Vfactr  -  Veloc“Dt/ (4 . 0“Dx) 

DO  10  IDEP  -  2, Nodes  -  1 

CALL  GHf ixd (IDEP, Ion , Eta , 0 1 FF) 

RSorbE  -  RequlK ( Idep, Ion) 

RsorbK  “  Rkintc  ( Idep, Ion) 

Decay  ■  Decayl ( Ion) /2 . 0  ♦  DecayM (Ion) /2 . 0 
BndFir  -  0.0 
If  (Ion.LE.2)  THEN 

If  (BdOpen ( Ion, I dep) )  BndFir  * 

4  Dt  “BndFac  ( Ion,  I  dep)  'RatRev  ( I  or.,  7 )  12  .  0 

ENDIF 


(set  up  these  factors  outside  of  the  loop1 

(for  the  internal  nodes  within  the  column) 

(get  the  ion  exchange  coefficients) 

(the  reversible  equilibrium  or  kinetic  values) 

(the  1st  order  degradation  coefficients) 

(generally  the  finite  sink  factor  is  0  but  if  the) 
ion  Is  a  hydrazine  spp  and  there  is  unused  capacity1 
(at  this  node,  calculate  the  transfer  factor) 
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SbDiag  ( IDE? I  =  -Dfactr  -  Vfactr 

Diagor. { IDE?)  *  1.3  ♦  Eta  *  RsorcZ  -  Decay  *  2.0'Dfacrr  *  Br 
SpDiagllDE?)  =  -Dfactr  ♦  Vfactr 
Result ( IDE? )  * 

4  OldDis ( Ion, IDEP-1) *  Of actr  +  Vf  act r)  * 

4  OldDis ( Ion, IDE?  )  ■  (1 . 0+Eta*Rscrb£-Decay-2  .  3’Dfact  r-Br.cFi 

5  OldDis (Ion, IDEP-1) • (Dfactr  -  Vfactr)  ♦  RsorbK  -  Diff 
10  If  (Resul c ( Idep) . LT. 0. 0)  Result (Idep)  -  0.0 

SbDiag(l)  -  O.ODtOO 

Diagon(l)  »  Disper/Dx  ♦  Veloc/2.0 
SpCiaq(l)  *  -Disper/Dx  ♦  Veloc/2.0 
Result (1)  *  Veloc  "  Cone In 
SbDiaq (Noaes )  »  -1.0 
Diagon  (Nodes)  *  1.0 
SpDiag (Nodes)  =  0.0D*CC 
Result (Nodes)  *  O.OD^CO 
CALL  TriDi.T. 

DO  20  IDEP  «  1, Nodes 

IF  (Result (IDE?) .GT.ApprxO)  THEN 

If  ( Ipa ss ,  GT. 0 .AND. Idep . G£. 2 . AND . Idep . LE. Nodes- 1 )  THEN 
If  (Cdlssv (Ion, loep) . GT. 1 . CE-20)  THEN 

Error  =  1  30 . 0“DA3S  (  (Result  ( Idep)  -  Caissvdcr.,  laep)  )  / 

4  Cdissv (Ion, Idep) ) 

ELSE 

Error  »  0.0 

If  (Error .  GE .  Ccr.vrg)  THEN* 

Cor.vrg  *  Error 
Mxlon  •  Ion 
MxDep  »  Idep 
ENDIF 
END  IF 

Cdissv (Ion, IDEP)  -  RESULT (IDEP) 

ELSE 

Cdissv (Ion, IDEP)  *  ApprxO 
ENDIF 

20  Continue 
RETURN 
END 

Subroutine  RevAds 


{set  up  the  standard  t  ri-si  aqor.a*  scheme  ■' 


(insure  no  negative  concentrations  will  occur) 
(FLUX  BOUNDARY  at  the  top} 


{REFLECTION  BOUNDARY  at  Bottom? 


i solve  system  of  equations! 

(filter  the  results 

(if  the  results  are  greater  than  0...) 

{and  this  is  not  the  first  iteration...} 

{ for  values  large  enough  tc  be  worried  aoou 
■{calculate  the  error  ret  ween  estimations; 


larger  than  the  max,  change  the  max* 


(and  assign  the  new  vaiue  into  the  array} 
( otherwi se . . set  to  effective  zero) 


his  routine  calculates  the  reversible  sorption  arrays 


INCLUDE  ' Hydrazin . CMB' 

Do  30  Ion  *  1,2 

If  ( Us el on ( Ion) )  THEN 

If  ( .Not .Kinetc (Ion) )  THEN 
Do  10  Idep  »  1, Nodes 

Adsorb (Ion, Idep) -Requii (Ion)  • 

4  Cdissv (Ion, Idep) *• RatRev (Ion,  3) 

BnFact  -  BndFac ( Ion, Idep) 

FixSrbllon, Idep)  »  RatRev ( Ion, 4 ) “Cdissv (Ion,  Idep) / 

4  RatRev (Ion, 5)  -  RatRev (Ion, 6) *BnFacT*01dFix (Ion,  Idep) 

10  Bound (Ion, Idep)  ■  RatRev (Ion, 6) *3nFacT*0idFix ( Ion, Idep) ♦ 

4  OldBnddon,  Idep) 

ELSE 

Do  20  Idep  «  2,Nodes-l 

If  (RatRev (Ion, 1 ) *  Rat Rev (Ion, 2) .GT.AppxO)  THEN 
BnFact  -  BndFac ( Ion, Idep) 

DisFac  *  Dt* ThetaS “RatRev ( Ion, 1 ) * 

4  Cdmean (Ion, Idep) ** Rat Rev ( Ion, 3) /3ul<Dn 

ComRat  *  Dt*  (RatRev  (Ion,  2)  ♦RatRevdon,  4)  ♦ 

4  RatRev (Ion, 6) 'BnFact  )/2.C 

FixFac  *  Dt'RatRev (Ion, 5) *FxMean(Ion, Idep) 

AdsFac  »  ( 1 . 0-ComRat ) “OldAas ( Ion, Idep) 

Adsorb ( Ion, Idep)  *  (DisFac+AdsFac+FixFac) / ( 1 . C*CcmRat ) 
ENDIF 

If  (RatRev ( Ion, 4 ) “RatRev (Ion, 5) . GT.AppxO)  THEN 
ComRat  ■  0 . 5*0t “RatRev ( Ion, 5) 

Fxfacl  -  Dt'RatRev (Ion, 4) * AdMean < Ion, Idep) 

FxFac2  *  (1 .0-ComRat) “OldFix (Ion,  Idep) 

FixSrb (Ion, Idep)  -  (FxFacl  ♦  FxFac2)/(1.0  ♦  ComRat) 

If  (FixSrb ( Ion, Idep) . LE. ApprxO)  THEN 

Write(12, 2000)  Ion, Idep, FixSrb (Ion, idep) 

000  Format ( '  ERR .R :  Chemi-Sorbed  over-reduced: Fx d , 213, 

4  ') , GI2 . 5, ' .  Pgra  ends.') 

Call  EndPgra (' Cheml- Sorbed  <  ApprxO!') 

ENDIF 

ENDIF 

If  ( BdCpen  ( I  or.,  Idep)  .AND.  Sponge.  GT.  0.0)  THEN 
FromCp  *  Dt  “RatRev  ( Ion,  6)  “AcLMean  (lor.,  Idep) 

FromCd  -  Dt “RatRev ( Ion, 7 ) *ThetaS*CdMean ( Ion, Idep) 

4  /BulkDn 

ComRat  -  (FromCp  ♦  FromCd) / (2 . 0“Sponge) 

Bound  ( Ion,  Idep)  =»  (FromCp  ♦FromCd  ♦ 

4  OldBnddon,  Idep)  “  (1 . 0-ComRat)  )  /  (1  .  ♦ComRat) 

If  (Bound (Ion, Idep) .GE. Sponge)  THEN 
Bound (Ion, Idep)  ■  Sponge 
BdOpen (Ion, Idep)  *  .false. 

ENDIF 

ENDIF 

20  Continue 

ENDIF 
ENDIF 

30  Continue 
Return 
END 

Double  Precision  Function  BndFac ( I  on, I dep) 


{for  the  hydrazine  species...) 

{which  are  in  use...! 

(and  are  in  an  equilibrium  model...; 

{calculate  the  amount  adsorbed...) 


{OTHERWISE - KINETIC  Model - l 

(if  the  rates  to  loosely  soroed  (LS)  are  >0! 

{^amount  moving  into  LS  from  dissolved  phase* 

{ “amount  leaving  LS  into  tightly  sorbed  tTS)  ; 

{  permanently  bound  (PBl  and  dissolved  p.nase- 
{ “amount  entering  LS  from  TS } 

{combine  into  new  LS  (adsorbed)  concentration} 
{if  the  rates  to/ from  TS  are  >  0,...* 

{-amount  entering  4  amount  leaving} 

{determine  the  new  cone,  in  TS  compartment} 


iif  there  is  open  capacity  4  permanent  binding} 
(can  occur,  get  the  amount  from  either  TS  or  ) 

{ LS  -  NOTE  either  RATREV ( ICN, 6 )  or  j 
{RATREV (ION, 7)  must  be  zero} 

{calculate  the  new  bound  quantity  and  set  the) 
{boolean  of  available  capacity  appropriately} 


C  This  routine  calculates  the  scale  factor  for  the  sink  -  (Maximum  possible  -  Cur rent_Va lue) /Maximum  po3siole 
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INCLUDE  '  Hy  a  r  a  2  i  r. .  03 ' 

If  (Sponge. GT. 0. 0)  THEN 

3r.aFac  -  (Scor.ge-3oy.ear.  ( lor.,  I  dec)  >  /Sponge 
If  (BnaFac.GT.  1 . 0)  BndFac  -  1.0* 

If  (BndFac.  IT.  0. 0)  3ndFac  =  0.0 
ELSE 

BndFac  *  1.0 
END  I F 
Return 
END 

Subroutine  Conver (Hydine, Hydium) 


(if  there  is  a  set  nsax  sir.x.  .  .  } 

•  the  capacity  _eft  is  (.tax-current )  /rax : 
(which  must  oe  between  0  and  1} 


.hi a  ro 
nodal  a 


INCLUDE  '  Hydrazin. CM3' 

Ratio  *  1  0. 0* * (aasepH-AmbnpH  (1 ) ) 

Total  *  Hydine  ♦  Hydium 

Call  Ad jstK (Hydine, Total/ (Rat io*l . 0) , 1) 

Call  Ad  jstH  (Hyaium,  Tota  I -Hydine,  2) 

Return 

END 

Subroutine  Ad  jstH  (H01  a.  Knew,  I  or.) 


■determine  the  conversion  ratio  4  the  total} 
(adjust  each  as  a  function  of  the  ratio  4  total’. 


INCLUDE  'Hydrazin. CM3' 

Haiff  ■  HOld  -  HSew 
If  (Hdi f f . GT . ApprxO)  THEN 

FlowOu(Ion)  =  FlowOu(Ion)  ♦  Hdiff'Dx 
HydrlA  (Ion)  -  HydrlA(Ion)  ♦  HdiffDx 
ELSE 

Flowln (Ion)  -  FLowIn(Ion)  -  Hdiff*Dx 
HydrlA (Ion)  -  HydrlA (Ion)  -  Hdiff*Dx 
ENDIF 

HOld  -  HNew 

Return 

END 

Subroutine  Conlr.p  (Hydine, Hydium) 


This  routine  converts  hydrazine  to  nydrazium  and  back  again.  If  Ambient  pH  is  ever  not  a  column  constant,  then 
nodal  argument  must  be  added  to  this  routine's  argument  list.  L*3ed  for  column  Input  ONLY 


INCLUDE  'Hydrazin. CM3' 

Ratio  »  10. 0** (BasepH-AmbnpK (1) ) 

Total  =  Hydir.e  ♦  Hydium 

Call  Ad  j  I  nH  (Hydine,  Total/(Ratio+l  .C) ,  1) 

Call  Adj  I  nH  (Hydium,  Total-Hydir.e,  2) 

Return 

END 

Subroutine  Ad jlnH (HOld, Hnew, ion) 


This  routine  adjusts  a  hydrazin (e) (ium)  value 


INCLUDE  ' Hydrazin. CMB' 

Hdi f f  =■  HOld  -  HNew 

Hydrin (Ion)  *  Hydrln(Ion)  ♦  Hdif f *Dt*FluxAn (IflxPt,  0) 

HOld  -  HNew 

Return 

END 

SUBROUTINE  CHFixd (IDEP, Ion, Eta, 0IFF) 


ents 

ng  the  sorbed 

issolved  phase 

This  routine  generates 

INCLUDE  'Hydrazin. CMB' 

Dimension  SorVal (Maxlon) ,DisVal (Maxlon) 

DIFF  1-0.0  (initi 

Eta  -0.0 

If  (Gol onX . AND . I  on . GE . 2 . AND . I  on . LE . 3 . AND . CECf ix . GT .0.0)  THEN 

HFactr  -  0.0  (other 

GFactr  »  0.0 
SMCSGB  -  0 . 00*00 

Do  10  I  -  2,3  (defir. 

SorVal (I)-0. 5* (  Csorb  ( I , Idep)  *  OldSor (I , IDep) ) 

10  DisVal  (I)-0. 5*  (Cdissv  (I,  Idep)  *•  OldDis  ( I ,  Idep)  ) 

DO  20  J  -  2,3 

IF  (J.NE.Ion)  THEN  {  hij* 

DIFF  -  DIFF  ♦  (Cdissv (J, IDEP) -OldDis (J, IDEP))  *  {  4  su 

4  (SorVal (J) /DisVal (J) ) 

SMCSGB  -  SMCSGB  ♦  VALENC(J) * SorVal (J) 

ENDIF 

20  CONTINUE 

GFactr  -  1 . ♦  SMCSGB/ (VALENC ( I  on)  *  SorVal (Ion))  (calcu 

HFactr  -  SMCSGB  /  (VALENC (Ion) "DisVal (Ion) )  (calcu 

Tfactr  -  ThetaS*Gfact r 
Diff  -  -1.0*BulkDn*Diff/Tfactr 
Eta  -  Bui kDn*HFact r/TFact r 
ENDIF 
Return 
END 

SUBROUTINE  Exchar.g 


This  routine  calculates  the  sorbed  concentrations  for  all  ions  at  all  nodes 


INCLUDE  'Hydrazin. CMB' 

If  (CECFix.GT. 0. 0)  THEN 
Do  10  Idep  -  2,Nodes-l 

Omega  -  SCa2Hy/ (CECf ix*Cdi ssv  (2,  Idep)  •  *2)  •' use  t 

Csorb(2, Idep)  -  (-1.0  ♦  DSQRT (1.0  *  4 . C*CECf lx  * Omega ) ) / 

4  (2.0*Gmega)  (and  f 

If  (Csorb  (2,  I dep)  .  LT .  ApprxO)  Csorb  (2 ,  Idep )  =*App rxO 


(initialize  accumulators} 

(otherwise  apply  the  Valocchi  technique) 
(define  dissolved  4  sorbed  values  at  'N*1/2M 


i  hij*  (CSj[N*l]-CSj [N1 ) ) 
(  4  sum  V j *CS ( jk)  } 


(calculate  Gii  I 
(calculate  Hii  } 


•'use  the  quadratic  equation  to  solve  the  * valer.ce 
(and  filter  for  minimum  value) 
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Cac  re  1 3 ,  1  aep)  *■  CECfix  -  Caere  (2,  Idea)  {  determine  the  2nd  by  differer.ee  ar.d  filter  the  value- 

If  (Csoro (3, Idep) . LT .ApprxO)  Csoro  (3, Idep) -ApprxC 
ESDI" 

Return 

END 

Subroutine  OxyEat  (Hconc,  Ccmpix,  OxCor.c,  Ion,  Idep) 


C  This  routine  implements  the  auto-oxidation  aspects.  RautoX  (1 ,  )  =Hydrazir.e;  2,=*  hydrazinium;  RautoX  ( ,  I ) -to  complex;  , 
C  2-  from  complex;  ,3-to  water  -  HAS  NOT  BEEN  TESTED!!! 

C - 

INCLUDE  ' Hydrazin. CM3' 

If  (He one . GT . App rxO .  AND . CxCor.c .  GT .  App rxO )  THEN 

RequiX  =  RautoX  (Ion,  1 )/  (RautoX  ( lor.,  I )  ♦  RautoX  (Ion,  2)  ) 

If  (He one . GT . CxCor.c )  THEN 
Cleft  =  Cxccr.c 
ELSE 

Cleft  »  Hconc 
END  IF 

ToComx  =  RautoX (Ion, 1 ) *Dt*Cle£t 

ToLeft  «  RautoX ( Ion, 2) *Dt*Complx 

Comp lx  *  Como lx  -  ToLeft  ♦  ToComx 

ToWatr  -  RautoX (Ion, 3) “Dt'Complx 

Corr.pl x  =  Filter  (Comp lx  -  ToWat  r,  AoprxC,  1 .  CE+30 ) 

ConcNw  *  Filter (Hconc  -  ToComx  *  ToLeft , ApprxO, 1 . CE- 3C ) 

CxCor.c  *  Filter  (CxConc  -  ToComx  *  ZoLeiz, ApprxO,  1 .  CE*3C) 

Diff  *  ( Hconc  -  C  or.  cNw)  "Dx*  ThetaS 

If  (Dif f. GT .ApprxO  SrbCut (Ion)  *  S rbCut  (Ion)  *  Diff 
Hconc  *  ConcNw 
END  IF 
Return 
END 

Subroutine  Mi nMax (Val, Ion, Index) 

C - — - - - - - 

C  Thia  routine  monitors  the  minimum  and  maximum  values  for  all  ions  for  three  parameters 

INCLUDE  ' Hydrazin. CMB' 

Logical  FirPas (Maxlon, 0 : 4) 

Data  FirPas/20* . t rue. / 

If  (FirPas (Ion, Index) )  THEN 
Extrem (1 , Ion, Index)  -  Val 
Ext rem (2, Ion, Index)  -  Val 
FirPas (Ion, Index)  ■  .false. 

ELSE 

If  (Val .LT. Extrem (1, Ion, Index) )  Ext rem (1 , Ion, Index)  *  Val 
If  (Val .GT. Extrem (2, Ion, Index) )  Ext rem (2, Ion, Index)  =  Val 
ENDIF 
Return 
END 

Subroutine  ReoExt 


C  This  routine  reports  the  m in/max  data  fro  all  ions  for  3  parameters 


INCLUDE  ' Hydrazin . CMB' 

Character  Types  (0 : 3 ) *20 

Data  Types/'  ','Mass  Balance' , ' Dissolved' ,  ' Sorbed' / 

If  (CECfix. Gt. 1.0E-06)  THEN 
Ntype  *  3 
ELSE 

Ntype  -  2 
ENDIF 

Do  10  I  *  1 , Ntype 

Write  (12,  1000)  Types(I) 

1000  Format (//,'  Extremes  of  ',A) 

Do  10  Ion  *  l,Nions 

10  If  (Uselon  (Ion) )  Write (12, 1010)  Ion, Solute ( Ion) , 

i  (Ext rem { J, Ion, I ) , J*1 , 2) 

1010  Format  ( 1  OX, 12, IX, A, '  Minimum*' , G12. 5, '  Maximum*' , G12 . 3) 

Return 
END 

Double  Precision  Function  Filter (Value, ValBot, ValTop) 


C  This  function  insures  than  any  value  will  fall  between  0  and  1 


INCLUDE  'Hydrazin. CMB' 

If  (Value. LT. ValBot)  THEN 
Filter  *  ValBot 

ELSE  If  (Value. GT. ValTop)  THEN 
Filter  -  ValTop 
ELSE 

Filter  -  Value 
ENDIF 
Return 
END 

Subroutine  StartR 


C  This  routine  starts  the  simulation  run  by  initization  £  reading  the  parameter  file 


INCLUDE  ' Hydra2in.CMB' 

Logical  NoFixd 
Character  Aline*30 
Write ( * , 1000) 

1000  Format (' SPlease  enter  Parameter  filename:  ')  i get  the  info  from  the  user) 

Read (* , 1010)  Fprint 
1010  Format (A) 

I  repet  -  0  {set  variables  to  0) 

TmLast  -  0.0 
TmSpan  •  0.0 

Valenc (2)  -  1.0  {insure  that  the  valences  are  set j 

Valenc<3)  -  2.0 

Write(*,*)  'Parameter  file  will  be  ', Fprint 
5  OPEN (UNIT- 10, F I LE-Fprint, STATUS* 'OLD' , ERR* 100) 
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Call  GetPar  (  reaa  the  rur.  parameters) 

If  ( .Not . Use Ion (4) )  THEN 
Nir.Use  -  3 
ELSE 

SinUse  -  4 
END  IF 
Ionise  -  0 
Ion 1st  •  1 

If  (  .not .  UselonU) -AND. Ionlst .£Q. 1)  Ionlst  “  2 
Do  10  I  -  1,30 
10  XtrTrk(X)  -  0 

I tmptr  »  0 
DtStar  -  .true. 

NDtSun  =  0 
DtSum  -  C.O 

DtMin  =  0 . 5 *Dx"Dx"CapMin/ConSat  '.stability  criterion  establishes  floor* 

IF  (DtMin. LT. 0. 1)  DtMin  =0.1 
Write(", 1020)  DtMin 

1020  Format(#  Dtrain  is  set  to  ',G12.5) 

IflxPt  -  0 
Do  15  I  1  0,  Nior.s 
15  Flux Am (0,1)  -  FluxAm ( 1 , I ) 

PoreVl  -  0.0 
If  (GoIonX)  THEN 

Write (*,*)  ' - Generating  initial  ion-ex mange  equilibrium - ' 

Call  Excharg 
Do  20  Idep  -  1, Nodes 
Do  20  Ion  -  2,3 

20  OldSor (Ion, IDep)  *  Csorb (Ion, Idep) 

END  IF 

If  (Severs)  THEN 

Write (*,*)  ' — -Generating  initial  reversible  equilibrium — 

Do  25  Ion  -  1,2 

If  (RatRev ( Ion, 1 ) "RatRev  (Ion, 2) . LE . ApprxO)  THEN 
Requil (Ion)  -0.0 
ELSE 

Requil  (Ion)  ■  ThetaS*RatRev  ( Ion,  1 )  /  (RatRev  ( I  on,  2 )  * BulitDn) 

END  IF 

If  (RatRev (Ion, 4) "Ratrev (Ion, 5) . LE. ApprxO)  THEN 
NoFixd  -  .true. 

ELSE 

NoFixd  “  . false. 

END  IF 

Do  25  Idep  =  I, Nodes 

If  (Requil (Ion) . CT. ApprxO  THEN 

Adsorb  ( Ion,  Idep)  -  Requil  (Icr.)  "Cdissv  Con,  Icepj  •  • 

4  RatRev  ( Ion, 3) 

If  (Adsorb ( Ion, Ideo) . LT . ADorxO)  Adsorb ( Ion , I ceo ) =Aop rxO 
ELSE 

Adsorb (Ion, Idep)  *  O.OD+OO 
END  IF 

Bound ( Ion, Idep)  «  0.0 
OldBnd (Ion, Idep)  -  0.0 
BdOpen (Ion, Idep)  -  .true. 

If  (NoFixd)  THEN 

FixSrb < Ion, Idep)  *  0.0 
ELSE 

FixSrb ( Ion, Idep)  -  RatRev ( Ion, 4 ) "Adsorb ( Ion, Idep) / 

4  RatRev ( Ion, 5) 

If  (FixSrbdon,  Idep)  .  LT.  ApprxO)  FixSrb  { Ion,  Idep)  *  AcorxO 
ENDIF 

OldFix  (Ion,  Idep)  »  FixSrb  I  lor.,  Idep) 

25  Continue 

ENDIF 

Do  60  I  *  0,Nions  (zero  the  various  accumulators) 

FlowIn(I)  «  0 . 0D*-00 
60  FLowOu(I)  •  0.0D+00 

Do  65  I  -  l,Nions 
65  SrbOut  (I)  -  0.0 
Time  -0.0 

DtSpan  -  (1 . 0/DtStep  +  1) * (DtMax/2 . 0+DtMin) -DtMin 
Write*",*)  Rlabel 
Do  70  Ion  -  1,2 

If  (Uselon (Ion) )  THEN 
Aline  *  Solute(Ion)  (1 : 5) // ' : ' //' Diss . ' 

If  (RatRev (Ion, 1 ) ^RatRev (Ion, 2) .GT. ApprxO) 

4  Aline (12:22) -'< — >Physi-S' 

If  (RatRev (Ion,  4 ) +RatRev  (I on,  5) .GT. ApprxO) 

4  Aline (23: 33) < — >Chemi-S' 

If  (RatRevlIon, 6) .GT. ApprxO) 

4  Aline (34 : 42) > — >Bound' 

If  (RatRevdon,  7)  .  GT.  ApprxO) 

4  Aline (38:54)-' Bound<-( 1 } -<Diss . 1 

Write ( 12 , • )  '  '//Aline 

Write (• , • )  Aline 
ENDIF 

70  Continue 
LcltDwn  -  11 
Goto  110 

100  Call  EndPgm ( ' Pa rameter  file  not  found') 

Return 

END 

SUBROUTINE  GetPar 

C - 

C  This  routine  reads  the  start  parameter  file 


INCLUDE  ' Hydrazin. CMB' 

Logical  AtEOF 

CHARACTER  Ft  able" 1 5 , Fi soth* 1 5 , Label • 8 , Rest "6  5, Dummy  *  8  0 

Read (1 0, 1 000)  Fprint  read  the  file  name  for  the  output  i  open  t 

1000  Format (A) 
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Open (Unit =12, 71 i e-Fprint , Status-' New' ( 

Fb  r  *  7h.  -  Fprmt  <  1  :  lextr.t  iFprir.t )  i  '  3RK' 

Open  (*Jr.it-i  3,  F  i  1  e  -  F  3  r  <  t  h ,  St  at  _s=  '  NEW'  ) 

Open  (Unit-1  4 ,  File-Fprir.t  (I  :  lextr.t  (Fpr  ir.t  |  )  /  /'  PRF'  ,  Status-'  NEW'  i 
WR!TS{12, 1010)  Char  (12 J 

10  Format  (A,  SIX,  *  Hydrazir.  (e)  { ium)  Transport  -  VER.  8*70929 
4  DR. S. A. BLOOM' ,/, IX, 128 ('-'),' ♦  /, 

4'  This  is  a  finite  difference  program  capable  of  hand!', 

4'ing  4  species  in  a  single  soil-layer  column.  It  features:',/, 

4'  <1>  Dissolved  4  sorbed  phases  of  Hydrazine,  Hydrazinium  &  Ca', 
4'icium  and  Oxygen  concentrations',/, 

k'  <2>  Hydrolysis;  AutoOxicaticn;  Microbial  Degraaatior.;  Sorpt i ' , 

6 'or*.  (Reversible  &  Reversible),  and  Ion-Exchange  using  the  ',/, 
i' fixed  Valocchi  Model',/, 

i'  ...... - >  LAST  VAJ33  REVISION  —  Oct.  12,1987  < - ...... 

4'  DR.S. A . 9LCCM  FOR  DR.  R.S. MANSELL  -  SOIL  SCIENCE  DEPT, I  FAS  ',/, 
4'  128 ('-'),'♦', /,28X, 'SIMULATION  PARAMETERS:',/) 

Write { 12 , 1000)  Fprint 
Cali  SchoSt (Rlabel) 

Call  EchoRi (Column) 

Call  EchoRi (TmStop) 

Call  EchoRi (ThetaS) 

Call  EchoRi (ConSat ) 

Cali  EchoRi (BulxDn) 

Cali  EchoRi (Disperl 
Call  EchoRi (Sponge) 

30  Format  (A,  G!  2 . 5 ,  A,  GI 2 . 5) 

Call  EcnoLo (GoIonX) 

Nions  *  4 

Solute (0)  -  'Water' 

Solute (1)  -  ' N2H4 ' 

Solute (2)  -  ' N2H5+ ' 

Solute(3)  -  'Ca^*' 

Solute (4)  -  'Oxygen' 

SCa2Hy  -  0.0 
If  (GoIonX)  THEN 

Call  EchoSt (Fi soth) 

Open (Unit- 20, File -Fisoth, St  at us- 'OLD' ,  Err- 300) 

Write ( 12, 1030)  '  Selectivity  File:  '//Fisoth 
Write (  *,1030)  '  Selectivity  File:  '//Fisoth 
Read  (20, 1 000)  Dummy 
Call  St rCap (DUmmy) 

If  (Dummy (1:5) .EQ.'VALOC')  THEN 
Read  (20 , * , ERR- 300 )  SCa2Ky 

Write(12, 1045)  'Selectivity  Ca->N2H5*:  ',SCa2Hy 
Wri t e ( • , 1 C4 5)  'Selectivity  Ca->N2K5+:  ',SCa2Hy 

45  Format (10X,A,G12. 5) 

ELSE 

Call  EndPgm ('Valocchi  Model  must  be  used') 

ENDIF 
Close (20) 

ENDIF 

Call  EchoLo (Revers) 

Do  5  Ion  -  1,2 
If  (Revers)  THEN 

Call  EchoLo (Klnetc ( Ion) ) 

If  ( .Not . Klnetc (Ion) )  THEN 

Write(12,*)  '  Equilibrium  Sorption  will  be  used  for  ', 
k  Solute(Ion) 

ELSE 

Write(l2,*)  '  Kinetic  Sorption  will  be  used  for  ', 
k  Solute  (Ion) 

ENDIF 

ENDIF 

Do  5  I  rate  -  1,7 
If  (Revers)  THEN 

Cali  EchoRi (RacRev ( I  on, I  rate) ) 

ELSE 

RatRev ( Ion, I  rate)  -  0.0 
ENDIF 
5  Continue 

Call  EchoLo ( I rrevs) 

Do  10  Ion  -  1,2 
If  (I rrevs)  THEN 

Call  EchoRi (Rat IRv ( Ion) ) 

ELSE 

Rat  I rv ( Ion)  -  0.0 
ENDIF 

10  Continue 

Call  EchoLo (Microb) 

Do  15  Ion  -  1,2 
Do  1 5  I  rate  -  1,4 
If  (Microb)  THEN 

Call  EchoRi (Rmicrb ( Ion, I  rate) ) 

ELSE 

Rraic rb ( Ion, I  rate)  -  0.0 
ENDIF 

Is  Continue 

Call  EchoLo (AutoOx ) 

Do  20  Ion  -  1,2 
Do  20  I  rate  -  1,3 

T  f  I  »  ...  t  Tiir«i 

Call  EchoRi (Raut ox ( Ion, I  Rate) ) 

ELSE 

RautoX ( Ion, IRate)  -  0.0 
ENDIF 

20  Continue 

Call  EchoLo (Hydrol ) 

If  (Hydrol)  THEN 

Call  EchoRi  (BasepH) 

Call  EchoRi  (AmbnpHC  )  I 


•.open  me  37C  f  i  le  • 

•.open  the  3TC  file1 

•write  a  simulation  report  heading) 


(now  read  4  echo  me  various  parameters) 
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If  (Ar.ar.pH (1 )  .  37.  Base?- )  Call  EnaPgm  t*  pH  value  >  base  value'1 

Basep.H  -  C  .  G 
AmbnpH  ( 1 )  =0.3 
ENDIF 

Call  Echoln (Nspecs) 

If  {Nspecs. GT.Maxset)  Call  Enc?gm('Tco  many  boundary  sets') 

Do  50  1  =  1, Nspecs 

Call  EchoRl (ColDep ( I ) ) 

Do  45  J  ■  1 , Nions 

Call  EchoRl (Collon(ItJf 1) ) 

:  f  (Collond,  J,  1 )  .  GT.  1 .  CE-06 .  A SO.  J .  LE.  2  .ASD.  Severs) 

i  Write  (*,*)  ' - WARNING:  GT  0  N2H4  or  X2H5  +  concentration', 

i  '  *■  reversible  sorption  should  not  be  used — -' 

45  If  ( J.GE. 2 .AND. J. LE. 3)  Call  EchoRl (Col  I  on ( I , J, 2 ) ) 

50  Cali  EchoRl (CECFix) 

Call  EchoRl (GridAm) 

Call  EchoRl (Dt) 

DX  -  GridAM 

NODES  »  NINT (COLUMN/DX) *2 

If  (Nodes  .GT.  Max  Nod)  Call  Zr.ctPgn  ( '  Too  many  r.oaes') 

SX  =  COLUMN/ (NODES- 2) 

DtMir.  «  C.l 
DtMax  «  Dt 
Call  ColSet 
Call  Echoln (Nf lux) 

If  (Nf  lux .  GT .  Maxset )  Cali  Er.aPgmi'Too  many  flux  sets') 

Do  55  I  =  1 , Nf lux 

Call  EchoRl (FluxTm CM 
Call  EchoRl  (FluxAm  (1,0) 

FluxAm  (1,0)  -  FluxAm  (I,  0) /3600 . 0 

Write ( 12, 1 045) ' Imposed  flux  — >  cm/sec*' , FluxAm ( I , 0) 

If  ( t . GT. 1 . AND . FluxAm (1,0) . NE . FluxAm (1,0) )  Cali  EndPgm ( 

6  'Changing  fluxes  are  not  allowed  in  a  steady  flow  system') 

Do  55  Ion  ■  1, Nions 
55  Call  EchoRl (FluxAm ( I , Ion) ) 

If  (ConSat . NE . FluxAm ( 1 , 0) )  THEN 
ConSat  »  FluxAm (1,0) 

Write (12, 1045) ' Saturated  Conductivity  reset  to  ', Consat 
ENDIF 

Veloc  *  ConSat /ThetaS 
Call  Echoln (Nreor) 

If  (Nrepr.GT. Maxrep)  Call  EndPgm ('Too  many  reports  requested') 

Do  60  I  »  l,Nrepr 

60  Call  EchoRl (TmRepr (I) > 

IF  (TMREPR  (NREPR)  . LT.TmStoc)  THEN 
NREPR  =  NREPR  *  1 
TMREPR  (NREPR)  =  Tr.stcp 
ENDIF 

TmRepr(O)  »  0.0 
Do  61  I  =  1, Nions 

61  Call  EchoRl  (Scaled)  ) 

Call  EchoLo (FeedBk) 

Call  Echoln (Icheck) 

Call  EchoRl (Tlevel) 

Call  Echoln ( It rLim) 

If  ( It  rLim.  GT .  30)  Call  Er.dPgm  ('  Iterative  Limit  must  <»  31') 

Call  EchoRl (DtStep) 

Call  EchoRl (FloorP) 

65  Close  (10) 

Write (12,  1050)  Icheck, TLevel, It  rLim, DtStep, Floor? 

1050  Format ('  External  abort  check  =  ',112,/, 

i  '  Iterative  Tolerance  Limit  =  ',G12.5,'  (  %)',/, 

5  '  Iterative  Pass  Maximum  =  ',112,/, 

i  '  Step  Amount  for  Dt  change  =  ',G12.5,'  (frac)',/, 

6  *  Effective  Zero  Value  power®  ',G12.5) 

ApprxO  =  1 . 0*10“*FioorP 

RETURN 

300  Write(*,*)  'Isotherm  file:  '//Fisoth//'  not  found!.  Pgm  Aborts.' 
Stop 
END 

SUBROUTINE  DepBrk  (Dept h, Nset Ab, Matchs ) 


C  This  routine  determines  the  node  for  any  given  depth  In  the  column 

c - 

INCLUDE  ' Hydrazin . CMB' 

Logical  Matchs 
Matchs  =  . t  rue . 

IF  (Depth. LT. ColDep (1)  )  THEN 
NsetAB  »  1 

ELSE  IF  (Depth . GT . ColDep (Nspecs) )  THEN 
NsetAb  =  Nspecs 

ELSE  IF  (Depth. GE.ColDep(l) .AND. Depth. LE. ColDep (Nspecs) )  THEN 
Matchs  ■  .false. 

Do  10  J  =  1, Nspecs 

IF  (Depth . GT . ColDep (J) .AND . Depth . LT . ColDep (J*l ) )  Goto  30 
IF  (Depth. EQ .ColDep (J) )  Goto  20 
10  Continue 

20  Matchs  ■  .true. 

30  NsetAb  =  J 

ENDIF 
Return 
END 

SUBROUTINE  ColSet 


•search  ail  specified  levels  for  bracketing 
j  depths  -  here  Bracketed 
i  unless  an  exact  match  is  possible 


C  This  routine  sets  the  column  according  to  the  input  controls 

C - - - 

INCLUDE  'Hydra z in. CM3' 

Dimension  Concln (MaxNodl 
Character  Datype(2)#4 
Logical  Exact 
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2a~ a  Da Type/ 'Dias', 'Sore'' 

2c  12  Icr.  *  1 , N i  cr.s 
Tael  or.  ( lor.)  =  .fa.se. 

2o  4  0  I  spec  =»  1,2 
DO  20  I  ■  lf Nodes 

Depth  =  (2—1.5)  •  Dx 
Call  DepBrk  (Depth,  J,  Exact} 

IF  (Exact)  THEN* 

ConcIn(I)  -  ColIontJ, Ion, Ispec) 

ELSE 

Xdiff  *■  CoIDep(J*l)  -  ColDep(J) 

PSlope  »  (Col Ion ( J+l , Ion, I scec ) -Col  Ion (J, Ion,  I soec)  ) 
i  ‘  /Xdiff 

Pinter  *  Col Ion (J* 1 , lor, I  spec)  -  Ps I  ope  •  ColDep ( J* 1 ) 
Cone  In  ( I )  *  ?  Inter  -  PSlope  *  Depth. 

END  IF 

If  (DA3S (Cone In ( I ) ) . GT . i . CE-30)  Use ion (Ion)  *  .true. 

20  Continue 

IF  (Ispec.EQ.l)  THEN 
DO  30  I  =  1, Nodes 

OldDis ( Ion, I )  =  ConcIn(I) 

3C  CDissvdon,  I)  *  ConcIn(I) 

ELSE  IF  (Ispec.EQ.2)  THEN 

If  (Ion. GE. 2. AND. Ion. LE.3)  THEN 
DO  35  I  -  1, Nodes 


Csorb  (lor.,  I) 

=  Cor.c  In  (I) 

3o 

OldSor  (lor.,  I 

ELSE 

;  =  Zcr.cZr.il) 

Do  36  I  *  1, Nodes 

Csorb (Ion, I ) 

-  c.o 

36 

OldSor ( Ion, I 
ENDIF 

ENDIF 

)  »  0.0 

40 

Continue 

Do  50  Ion  -  l,Nions 

Csorb(Ion,l)  * 

0.0 

Csorb ( I  on, Nodes ) 

0.0 

OldSor (Ion, 1 )  = 

0.0 

50 

OldSor (Ion, Nodes)  - 
Do  60  I  -  1, Nodes 

0.0 

AmbnpH(J)  =  AmbnpH (1 
Do  60  Ion  -  1,2 

) 

Adsorb (Ion, I )  =  0 . 

0 

60 

CldAds (Ion, I )  -  0. 
Return 

END 

SUBROUTINE  TRIDIM 

0 

C  This  routine  solves  a  tri-diagonal  matrix 


INCLUDE  'Hydrazin.CMB' 

D I MENS I on  A (MaxNod) , BETA (MaxNod) , Y (MaxNod) 

A ( 1 )  -  D I AGON  ( 1 ) 

BETA  (1 )  -  SPDIAG ( 1 ) /A  ( 1 ) 

Y ( 1 )  -  RESULT (1) /A (1) 

DO  201  I  -  2, Nodes 

A(D  -  DIAGON(I)  -  S3DIAG (I )  *  3ETA(I-1) 
BETA (I)  -  SPDIAG  (I) /A (I) 

201  Y(I)  * (RESULT ( I ) -S3DI AG (I)*Y(I-1))/A(I) 

Result (Nodes)  »  Y (Nodes) 

DO  203  I  -  1,  Nodes  -  1 
J  -  Nodes  -I 

203  Result  (J)  -  Y(J)  -  BETA ( J)  *  Result  (  J*l) 
RETURN 
END 

SUBROUTINE  BRkOut 


{determine  depth  from  surface 


{following  is  for  bracicetir.g  interpolation 

(slope  of  cone  between  speci f . levels 

•intercept  of  cor.c  line 

•linear  interpolation  of  cone  va.ues 


C  This  routine  appends  data  to  the  breakthrough  file. 


INCLUDE  'Hydrazin.CMB' 

Dimension  Divsor (Maxlon) 

Cr.orml  -  Ctotal  (Nodes-l ) 

Do  10  Ion  -  l,Nions 

If  (Use I on (Ion) . AND . DABS (Scale ( Ion) ) . GT . 1 . 0E-06)  THEN 
Divsor(Ion)  ■  Scale(Ion) 

ELSE 

Divsordon)  ■  Cnorml 
ENDIF 

10  Continue 

Write  (13,  1400)  PoreVl,  (Cdlssv  (J, Nodes-l ) /Divsor (J) 

»  ,J-l,Nions) 

1400  Format ( 7G12 . 5) 

TmLast  *  Time 

Return 

END 

SUBROUTINE  BrkRep 


(determine  current  normality  at  the  bottom} 

{if  using  this  ion  &  there  is  a  scale  value} 
(then  use  that  value,  otherwise  use  normality} 


{note  the  time  of  the  last  BTC  point  generation} 


C  This  routine  reads  the  backup  Breakthrough  file  and  converts  the  data  into  a  plot  data  file 


INCLUDE  'Hydrazin.CMB' 

D I MENS I  on  TMOUT(200) ,  3RK7HR (Maxlon, 200) ,Xout (201) , Yout (201 ) 

Cha racter  Label»8,Rest*65 
Logical  NotEqu 
Close (1 3) 

OPEN  (UNIT-13, FILE-FBrkth, STATUS-' OLD' )  'the  file  will  be  opened  and  the  data-set  read* 

IBRK  -  0 

10  Ibrk  -  I  brie  ♦  1 

Read(13,  1000, END-20)  TmCut  (Ibrk)  ,  (3rkT.hr  (I,  Ibro  ,  I-L ,  Nicr.s)  'read  in  the  tine  5,  the  concert  rat  ion  s  » 

1000  Format  (7G12 . 5) 

IF  (IBRK. LT. 200)  Goto  10  iuo  to  201  ooservat ions! 

Ibrk  -  Ibrk  ♦  1 
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2:  Ibr<  -  : 3r.<  -  1 

If  ( Ibr'<  .  GT.  C)  THEN 

Close  (13)  '  zr.e  file  will  tr.er.  oe  ciscarded  ana  the  data  roco  rued  - 

OPEN  (UNIT*1  3,  FI  L£“F3r‘xth,  STATUS* '  NEW'  )  •  ->  new  file  of  s  a e  na.te  out  different  format! 

Rest  =  Rlabel(l:6S) 

CO  50  Ion  *  l,Nior.s 
If  ( Use  I  on  ( I  or. )  )  THEN 
Nobs  -  1 

Xout  (1)  -  TmOut  (1) 

Yout(l)  -  BrfcThr (Ion, 1) 

Do  30  I  -  2, Ibr<-1 

I i (NotEqu (BrkThr (Ion, 1-1 ) , BrkThr ( Ion, I ) ,  3rkThr (I on,  I ♦ 1 ) )  ) 

&  THEN 

Nobs  »  Nobs  -  1 
Xcut(Nobs)  *  Tr.out  ( I ) 

Yout  (Nobs)  *  3ricThr  ( lor. ,  I ) 

END  IF 

30  Continue 

Nobs  -  Nobs  ♦  1 
X out  (Nobs)  -  Tmout  (I brie) 

Yout (Nobs)  *  BrXThr ( Ion, Ibr< ) 

Label  *  Solute (Ion) (1:8) 

Call  WritDP (Label, Rest, Nobs, Xout, Yout, 13) 

END  IF 

50  Continue 
ELSE 

Rewind  (13) 

Write  (13,*)  'No  Data  Available' 

END  IF 

Close  1 1 3) 

Return 

END 

Double  Precision  Function  Ctotalddep) 

C - - - 

C  this  routine  calculates  normality  at  a  given  node 

INCLUDE  ' Hydra zin. CMB' 

Ct  «  0.0 

DO  10  lor.  -  1,3 

10  Ct  -  Ct  *  Cdissv(Ion,Idep) 

Ctotal  ■  Ct 

Return 

END 

SUBROUTINE  FilVal (Avaiue, ValNew, Va lOld) 

C  This  routine  filters  value  for  divisions  by  0  during  error  calculations 

INCLUDE  'Hydrazin. CMB' 

Character  Avaiue* 12 
IF  (ValOld . GT . ApprxO)  THEN 

Call  SetChr (Avaiue,  100 . 0- (ValNew-ValOlu) /ValOld  ) 

ELSE 

Avaiue  -  '  Undefined' 

ENDIF 

Return 

END 

SUBROUTINE  SetChr (String, Value) 

C - 

C  This  routine  translates  a  value  into  a  string  of  characters.  If  the  ABS(value)  is  less  than  ApprxC,  the  string  is  set 
C  to  blanks. 

INCLUDE  ' Hydra zin . CMB' 

Character  String* 12 
IF  (A3S (Value) .GT. ApprxO)  THEN 
Write (St  ring,  1024)  Value 
1024  Format (G12 . 5) 

ELSE 

String  -  '  0  ' 

ENDIF 

Return 

END 

Logical  Function  NotEqu (Vabove, Value, Vbelow) 

C  This  function  determines  whether  the  value  is  different  from  the  flankers 
INCLUDE  ' Hydrazin . CMB' 

Character  AbvStr*12, ValStr*12, 3elStr*12 
Write (AbvSt r, 1 000 )  Vabove 
Write(ValSt r, 1 000)  Value 
Write (BelSt r, 1 000 )  Vbelow 
1000  Format (G12. 5) 

If  (ValStr. EQ. AbvSt r. AND. Val St r. EQ . 3eiStr)  THEN 
NotEqu  -  .false . 

ELSE 

NotEqu  *  .true. 

ENDIF 

Return 

END 

Subroutine  Repltr 

C  This  routine  reports  the  iterative  values 


INCLUDE  'Hydrazin. CMB' 

Last  -  1 

Do  10  I  -  1 , It rLim 
10  If  (ItrTrk(I) .GT.0.0)  Last  -  I 
Write ( 12, 1000)  'Iteration  Trace:' 

1  000  Format  <//,  A) 

Write(12,1010) ('  <', I, ' :',130.0*ItrTrx(I)/I repet, '%>',!=!, Last) 

1010  Format ( 6 (A, 12, A, G12. 5, A) ) 

Return 
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lase 


INCLUDE  'Hydra 2 in.  CM3' 

BdMean  =  0 . 5*  (Bound  (Ion,  Idep)  *  CId3nd  (lor.,  Idep)) 

Return 

END 

Double  Precision  Function  FxMean (Ion, Idep) 


routine  calculates 


ghtly  aosorbea  phase 


INCLUDE  'Hydrazin. CM3' 

Fx.Mean  *  0.  5*  (FixSrd  ( Icn,  Idep)  -  OldFix  (lor.,  I  cep) ) 

Return 

END 

Double  Precision  Function  CdMean (Ion, Idep) 


C  This  routine  calculates 


•  the  amount  that  sr.oulc  se  in  the  system'’ 


■the  error  between  t re  two  ft  cures* 


INCLUDE  ' Hydrazin . CM3' 

CaMean  »  0 . 5* (Cdissv ( Ion, Idep)  *  OldDis (Ion, Idep) ) 

Return 

END 

Double  Precision  Function  AdMear.  ( Ion,  Idep) 


INCLUDE  ' Hydrazin. CMB' 

AdMean  *  0. 5*  (Adsorbdon,  Idep)  ♦  OldAds ( Ion,  Idep) ) 

Return 

END 

SUBROUTINE  Mbalck 


C  This  routine  performs  a  Mass  3alar.ce  check 


INCLUDE  'Hydrazin. CMB' 

CALL  Mbalan 

DO  10  Ion  »=  l,Nin'Jse  ifor  each  ion,  total  up  the  amount  of  material 

ERRors ( Ion, 1 )  =  0.0D+C0 
If  (Uselon (Ion) )  THEN 

CACT  (Ion)  =  C I N I T  (Ion)  *  FLOWIN(Ion)  -the  amount  that  sr.oulc  oe  in  the  syst 

CPRED(Ion,l)  *  TotNow  (Ion,  1 )  ♦TotNow  (Ion,  2)  ♦TotNow  ( lor.,  3)  * 

&  Tot  Now  ( Ion,  4  )  Tot  Now  ( Icn,  5 )  *  FLCWCU(Ion)  *  SrbCut(Ion) 

IF  (CACT  (lor.)  .  GT .  ApprxC )  THEN 

Errors  ( Ion,  1)  =  ICC  .  C*  (CPRED  (Ion,  1 )  -CACT  ( Ion) )  /CACT  (Icn)  -the  error  between  tr.e  two  figures; 

END  IF 
END  IF 

10  CONTINUE 
RETURN 
END 

SUBROUTINE  MBalan 


C  This  routine  performs  the  mass  balance  calculation  by  summing  up  the  contents  of  the  column  in  the  2  phases 


INCLUDE  ' Hydrazin. CMB' 

3ALS0L  -  0.0D+00 
3ALS0R  -  0.0D*00 
DO  60  Ion  =  1 ,SinUse 
DO  1 0  Itype  *  1,5 
10  TotNow (Ion, Itype)  =  0.0D*C0 
DO  20  IdeD  “  2,Nodes-l 
If  (Ion'.  LE.2)  THEN 

TotNow  ( Ion, 3 )  =  TotNow ( Ion, 3)  ♦  Adsorb ( Ion, Icep) 

TotNow  ( Ion,  4 )  =  TotNow  ( lor.,  4  )  *  FixS rb  ( Ion,  I  dep) 

TotNow ( Ion, 5 )  «  TotNow ( Ion, 5)  ♦  Bound ( Ion, Idep) 

ENDIF 

TotNow ( Ion, 2)  =  TotNow ( Ion, 2)  ♦  Csorb ( Ion, Idep) 

20  TotNowdon, 1)  -  TotNow ( I  on, 1 )  *  Cdissv  (Ion, Idep)  ( ana  that  in  solution  phase  corrected  for  theta* 

TotNow  ( Ion,  1 )  «  TotNow(Ion,l)  *  ThetaS  •  Dx  -scale  the  solution  total  by  the  r.odai  size) 

DO  25  Itype  -  2,5 

TotNow  ( I  on,  Itype)  *  TotNow  (Ion,  Itype)  *  3ULKDN  •  DX  ■’  and  the  sorbed  side  by  bulk  density  & 

25  BalSor  ■  BalSor  ♦  TotNow (Ion, Itype) 

60  BALSOL  ■  BALSOL  *  TotNowdon,  1)  (then  toal  across  the  ions) 

RETURN 
END 

SUBROUTINE  Replon 


*'and  the  sorbed  side  by  bulk  density  &  nodal  size! 


(then  toal  across  the  ions) 


This  routine  reports  the  condition  of 


onic  state  whenever  requested. 


INCLUDE  ' Hydrazin. CMB' 

Dimension  Coma nn (Max  I  on) , Camob (Max Nod) , TOT I NT (Max  Ion,  5) , 

*  Stuf  f I (Max  Ion) , CaTot i (Max Nod) , P  rtNcw (Max  I  on,  2 ) 

Logical  NotEqu, P rtVal 

CHARACTER*  1  5  Commnt ,  A  value  (5)  *12,Blar.xs*12 
DATA  Blanks/'  '/ 

IF  (I  repet . LE. 1)  THEN 
CALL  Mb  ale  It 
CRGSCL  *  BalSOL 
ORGSOR  -  BalSor 
DO  1  Ion  ■  l,Nions 
Cinitdon)  -  0 . 0D*  00 
Do  1  Itype  »  1,5 

CINIT(Ion)  •  Cinitdon)  *  Tot  Now  (I  or.,  I  type) 

TOTINT  (Ion,  I  type)  *  TotNow  ( lor.,  I  type) 

ENDIF 

Hour  *  Time/ 3 600.0 
Day  *  Hour/24 . 0 

WR I TE  d  2 , i 02  0 ) CHa  r  d  2 ) , RLABEL, T I  ME , HOUR , Da y , DX , DT , Node s, FCSEVL , 
4  IREPET 


(if  starting  . . .  > 

(scan  the  column  to  e3tatlisn  initial  conditions  for 
•  mass  baiar.ce  ca  1  r  ui  at  i  or. s  * 


■such  as  initial  concentrations  for  ail  ions* 


:  print  a  header  b  1  or  <  f-r  tr.e  report 


1  22  :  FORMAT  *.A, 5?  (1K-;  ,' <3CLUTE  REPORT*' , 5^ i /  , 24X,A,  , 

4  '  Time  *  ' ,  F 1 C  .  2 , '  Sec.  =  '  ,  F  6 .  1 ,  '  Hrs.=  '  ,  F  6 . 1 , '  Days; 

4  'Dx  =  ',”5.2,';  Dt  *  ',=“*.2,  Scces  *  ',15, 

4  '  for  following  bloc*',/, 

4  '  cumulat ive  pore  volume  up  to  New  =  ',F12.1,49X, 

4  '  Total  Iterations*' , I  9) 

CUMCTR  *  0.00*00 
DO  31*  2, Node s- I 
DO  3  J  -  2,3 

3  CUMCTR  -  CUMCTR  ♦  Csorb(J,I) 

CumCtr  *  CumCt r/Float (Nodes-2) 

Call  FilVal (Avalue  (1) , CumCtr, CEC fix) 

WRITE {12, 1025)  CUMCTR, CECFix, Aval ue<l) 

1325  FORMAT {'  Average  CEO  in  column*  ',312.5,'  Specified  DEC*', 

4  312.5,'  Error%*',A) 

If  (I repet . 3T. 0)  Call  Mbaick 
T INPUT  *  0.  CD*C0 
TOUTPT  -  0.0D+00 
DO  4  Ion  «  l,Nions 

T INPUT  *  TINPUT  ♦  FLOW IN {Ion) 

4  TOUTPT  =  TOUTPT  ♦  FLCWCU ( Ion) 

CRGEST  *  TINPUT  ♦  CRG5CL  «•  CR'JSCR 

BESTES  *  (TINPUT -OLDINP )  *  OLD SOL  ♦  OLDSRb 

C'JMCCN  *  3ALSOL  *  3ALSOR  ♦  TOUTPT 

CUR CON  *  8ALS0L  ♦  EALSOR  *  (T0U7PT-0LDCUT) 

Stuff T  *  3.0 
DC  50  Ion  =  l,Nions 
If  (Use I on ( I  on) )  THEN 

WRITE(12,  1030)  SOLUTE  Con) 

1030  FORMAT  (/,  32X, ' >  Following  summary  ', 

&  ’applies  to  Ion:  ',A,'  < - ',/) 

Stuff  1  (Ion)  -  DABS(Cpred  (Ion,  1)  -  Cact  (Ion)) 

StuffT  =  StuffT  *  StuffI (Ion) 

Call  SetChr (Avalue ( 1 ) ,  100 . 0*FLowOu ( Ion) / 

&  (Cinit (Ion) +Flowin (Ion) )  ) 

WRITE (12, 1040)  FLCWIN (Ion) ,FLCWOU(Ion) , CINIT Con) , 

4  Tot Now (Ion, 1 ) *TotNow (Ion, 2) , Tot Now (Inn, ’ ' ; Tct  New  f  t  o- , 2) , 

4  Avalue (1) 

1040  FORMAT ('  Total  Flow  in  *  ',G10.3,'  Total  Flow  out  -  ' , 

6  G10.3,'  Initial  storage  *  ',G10.3,'  Present  storage*  ', 

4  G10.3,/,'  38X, 'Dissolved  total  =  ',G10.3, 

4  '  Sorbed  total  *  ' ,  GI 0 . 3 ,  '  Percent  left  from  system  (', 

4  '  Cut  *  1 00/  Initial*!  r.out )  =  '  ,  A ) 

If  ( Ion . LE. 2)  THEN 

Call  FilVal  (Avaiue(l)  ,SrbOut  (Ion)  .FlowInCon)  ) 

Write  (12,  2040)  SrbCut  (Ion)  ,  Avalue  (1) ,  Hydrla  (Ion) , Hydrin  ( lor.) 
2040  Format ('  Irreversible  sorption  accounted  for:  ',312.5, 

4  '  %  of  input  adsorbed*' , A, /, '  Hydrolysis:  Total*' , Gi 2 . 5, 

4  '  Input*' , G12 . 5) 

If  (Sponge. GT. 0.0)  THEN 

AmLeft«100. 0*TotNow  (Ion,  5)  /  (BuIJcdn*Dx*Sponge*  (Nodes-2)  ) 
ELSE 

AmLeft  -  0.0 
ENDIF 

Write<ll,  2045)  '  -.Now  (Ion,  3) , TotNow  ( Ion,  4  )  , TotNow  ( ion,  5 )  , 

4  .-cnLeft 

2C45  Format ('  Total:  Phy si-sorbed*' , Gl 2 . 5, '  chemi-sorbed*' , 

4  G12.5,'  Bound*' , G12 . 5, '  %*',G12.S) 

ENDIF 

Call  FilVal (Avalue (1) , Cpred(Ion, 1) ,Cact  (Ion) ) 

If  (Ireoet .  LE.  2)  AvalueC)  *  '  Undefined' 

WRITE  (12,  1050)  CACT  (lor.)  ,  CPRED  ( Ion,  1 ) ,  AvalueC) 

1050  FORMAT ( '  Sum  of  input  4  initial  cone.  =  ',gi0.3,'  Sum  of 

4  'stored  4  outflow  *  '  ,  G 1 0 . 3 ,  '  Error%= - < '  ,  A,  '  > - '  ) 

ENDIF 

50  CONTINUE 

If  (Use  I  on  ( 1 )  .  AND  .  Use  I  on  (2)  )  THEN 

WRITE  (12,  1030)  'Hydrazine  *  Hydrazmium' 

Call  SetChr (Avalue (1) , 100.0* (FiowOu  ( 1 ) *FLowOu  (2) ) / 

4  (Cinit (1) *Flowin (1 ) *Cinic (2)*Fiowin(2) )  ) 

WRITE  (12,  1040)  FLCWIN  (1)  *FlowIn  (2)  ,  FLOWOU  (1 )  *FlowOu  (2),CINIT(D* 
4  Cir.it  (2)  ,  TotNow  (1 , 1)  *Tot.Ncw  (t,  2)  *TotNow  (2,1)  *7ctNow  (2,  2)  , 

4  TotNow (1,1) + Tot Now (2,1), TotNow  (1,2) * Tot Now (2,2) , Avalue i 1 ) 

Call  FilVal  (AvalueC)  ,SrbOut  (1)  ‘SrbCut  (2)  ,  Fiowln(l)  *FLowIn(2)  ) 
Write  (12,  2040)  SrbOut  (1)  *SrbOut  (2)  ,  Avalue  (1)  , 

&  Hydrla ( 1 ) *HydrLa (2) , Hydrin (1 ) *HydrIn (2) 

If  (Sponge. GT. 0 . 0)  THEN 

AmLeft  -  100. 0*  (TotNow  (1 , 5) *TotNow (2, 5) ) / 

4  (Bulkdn'Dx*Spor.ge#  (Nodes-2 )  ) 

ELSE 

AmLeft  *  0.0 
ENDIF 

Write  (12,  20  4  5)  TotNow  (1,3)  ♦  Tot  Now  (2,3)  ,TotNow(l,  4)  *TotNow(2,  4)  , 

4  TotNow (1,5) * Tot  Now (2,5) , AmLeft 

Call  FilVal (AvalueC ) , Cpred (1,1) *Cpred(2, 1 ) , Cact (1 ) *Cact (2)  ) 

If  ( I  reoet .  LE .  1 )  AvalueC)  *  '  Undefined' 

WRITE (12, 1050)  CACT ( 1 ) *Cact (2) , CPRED (1, 1 ) *Cpred (2, 1 ) , Avalue (1 ) 
ENDIF 

Do  52  Ion  *  l,Nions 
If  (Uselon { Ion) )  THEN 

Call  FilVal (Avalue  ( 1 ) , StuffI ( Ion) *Stuf  fT, StuffT) 
Write(12,2050)  Solute ( Ion) , StuffI (Ion) , StuffT, Ava lue { 1 ) 

2050  FormatC  ',A,'  Mass  Discrepancy  *',G12.5, 

4  '  of  total  di screpancy*' , G12 . 5, '  Error*', A,'  %  ') 

ENDIF 

52  Continue 

WRITEC2,  2051  ) 

2C51  FORMAT {/, 3 3X , ' - >  Following  summary  ', 

4  'applies  to  all  Ions  taken  tegetner  <---',/> 

WRITE (12,  1052)  T I N  P U T , O  L D I N ? , TO U T ?  T , G  L DO U T , 3 A L S 0  L , O  L  D  S C  L , 

4  3ALSCR,OLDSP3, SrbCut (1) *SrDCut (2) ,GiuD< 


•Perform  tne  CEC  error  analysis 


!  tr.e.n  the  mass  oa  lance  analysis 


■best  value  for  input  *  orqinia 
: oest  estimate  for  errors  since 
(comparison  value  for  overall  e 
(comparison  value  for  errors  si 


•for  ail  icn.s  tr.ar  are  active  i 


(acquire  discrepancy  values  a 


(then  report  the  results) 


; present  tr.e  discrepancy  ar.alys 


■then,  the  overall  *»rr?r  report- 


1  amounts: 

last  report  j 
rror  ( 

r.ce  last  report  • 


tr.e  simulation. 


nd  error  value si 


1  3  1 
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1052  FORMAT {'  Total  current  input3'  ,  G12 . 5,  '  Old  input3* , G12 . 5, 

4  '  Current  out  put  = '  ,  G1 2 . 5 , '  Old  out put  = ' , G12 . 5, / , 

i  '  Total  current  dissolves  storage3' ,012. 5,'  clc=' , g!2 . 5, 

i  '  current  sorbed  storage3' , gi2 . 5, '  old3 ' , G 1 2 . 5 ,  /  , 

5  '  Total  decayed-' , G1 2 . 5, '  Old  decayed3 ', G12 . 5 ) 

Call  FilVal (Avalue ( 1 ) , CurCon+Srbout { 1 ) ♦SrbCut (2 ) -01 dDk , 3escEs ) 

WRITE ( 12, 1053)  Avalue (1) 

1053  FORMAT ( 4 5X, ' Error  since  last  report  *  ',A) 

Call  FilVal  (Avalue  (1)  ,  CumCon+SrbOut  (1)  ♦SrbOut  (2)  ,Orgest) 

WRITE (12,  1055)  Avalue  (1 ) 

1055  FORMAT (45X, 'Error  since  initiation  =  ' ,A) 

CLDIN?  -  TINPUT 
OLOCUT  -  TCUTPT 
CLDSCL  •  3A1SC1 
CLDSR3  *  3ALS0A 
01d0<  -  SrbCut ( 1 )  ♦  SrbCut  (2) 

WRITE (12, 1C  60) 

1060  FORMAT ('♦', 129 (1H-) (now  snow  am  image  of  the  column) 

DO  110  Ion  -  l.Nions 

If  ( . Not . Cselon (Ion) )  Goto  110 
WRITE (12, 1100) 

1100  Format ('  Ion  number  &  Designation  Depth  Time  Pore  ', 

4  'Volume  Dissolved  Adsorbed  Sorbed  Total  (/g)', 

4  / ,  A) 

Lines  »  0 

Do  99  I  -  3,Nodes-2 

99  If  (NotEqu (Cdissv (Ion, I-l ) , Cdi ssv (Ion, I ) , 

4  Cdissv  (Ion,  1*1)))  Lines  3  Lines  * 

LinCut  *  MaxDiv (Lines, 50) 

If  (LinOut . LE. 0)  LinOut  -  1 
DO  100  I  -  1, Nodes 

If  (I . LE.2 .OR. I .GE.Nodes-2)  THEN  (always  print  the  top  4  bottom  &  any  node  that  is 

PrtVal  -  .true.  {different  from  its  r.eighoors) 

ELSE 

PrtVal  -  NotEqu (Cdissv ( Ion, I-l ), Cdissv ( Ion,  I ) , 

4  Cdissv (Ion, 1*1) ) 

If  (MOD (I , LinOut ). NE. 0)  PrtVal  -  .false. 

ENDIF 

If  (PrtVal)  THEN 

DEPTH  -  DX  •  (1-1.5) 

CCMMNT  -  ’  ' 

IF  (I .EQ. 1 .OR. I .EQ. Nodes)  COMMNT  -  '  Not  in  Column' 

Cal  1  SetChr  (Avalue  ( 1 ) ,  Cdi  ssv  (lor.,  I )  ) 

Call  SetChr (Avalue (2) , Adsorb (Ion,  I ) ) 

If  (Ion.GE.2. AND. Ion.LE.3)  THEN 

Call  SetChr  (Avalue (3) , Csorb (Ion, I ) ) 

Call  SetChr (Avalue  (4 1 , Thet aS*Cdi ssv  f  *©n, I ) / 

4  BulkDn  ♦  CsorD  ( Ion,  I )  ) 

ELSE 

Avalue (3)  *  '  ' 

Call  SetChr (Avalue  (4) , ThetaS "Cdi ssv (Ion, I ) /3ul <Dn) 

ENDIF 

WRITE (12, 1110) Ion, SOLUTE (Ion) , DEPTH, TIME, 

4  POREVL, (Avalue (Ival) , Ival-1, 4) , COMMNT 

1110  FORMAT ( '  ',11,'  :  ' , A, 4X, F7 . 3, F9 . 1 , G1 5 . 5, 5A) 

ENDIF 
ICO  CONTINUE 

WRITE  (12,1115) 

110  Continue 
1115  FORMAT (A) 

WRITEI12, 1100) 

DO  101  IDE?  3  1, Nodes  (then  do  the  sane  for  t re  totalled  column? 

CAMOB (IDE?)  -  0 . OD*CO 
CaTotl (IdeD)  *  0.00*00 
DO  101  Ion"  -  2,3 

CaTot 1 ( I dep )  -  CaTot 1 ( I dep)  * 

4  ThetaS*Cdlssv  (Ion,  Idep) /BuiicDn  ♦  Csorb  ( I  on,  Idep ) 

101  CAMOB (IDEP)  -  CAMOB (IDEP)  *  Cdi ssv ( I  on, I DEP) 

AvalueO)  -  '  ' 

DO  105  I  =  1, Nodes 

If  (I. LE.2. OR. I -GE.Nodes-2)  THEN 
PrtVal  -  .true. 

ELSE 

PrtVal  -  NotEqu (Camob ( I -1 ) , Camob ( I ) , Camob ( I * 1) ) 

If  (MOD (I, LinOut ) .NE.0)  PrtVal  3  .false. 

ENDIF 

If  (PrtVal)  THEN 
DEPTH  -  DX  •  (I-l . 5) 

COMMNT  -  '  ' 

IF  (I . EQ. 1 .OR. I .EQ. Nodes)  COMMNT  3  '  Not  in  Column' 

Call  SetChr (Avalue ( 1) , Camob ( I ) ) 

Call  SetChr (Avalue ( 4) , CaTot 1 ( I)  ) 

WRITE (12, 1110) Ion, 'Common  Anion  DEPTH, TIME, 

4  POREVL, (Avalue (J) , J-l, 4) , COMMNT 

ENDIF 

105  Continue 

WRITEU2,  1115)  ' 

Itmptr  -  Itmptr  ♦  1 

RETURN 

END 

Sub  routine  ChkFlx 


C  This  routine  handles  setting  Che  flux  4  velocity  if  they  should  cr.ar.ge  during  as  run 


INCLUDE  ' Hydrazin . CMB' 

IF  (  (IflxPt .LE.0)  -OR. 

4  (Time . GE . FiuxTm (IflxPt ♦ 1 ) .AND .  (I f ixPt  *  1 )  . LE . NFLUX) )  THEN 
IflxPt  -  IflxPt  ♦  1 
DtStar  3  .true. 

LckDwn  -  0 
W  r  i  t  e  ( 1  2 ,  *  )  '  ' 


•if  this  is  the  first  tl-e  this  routine  .s  called 
•  it  is  time  to  reset  the  flux  values.  .  .  • 

•increment  the  flux  :  '  r  and  res**:  the  flux  4  ve.ee 


254 


C  This  routine  resets  the  Dt 


INCLUDE  ' Hydra2in . CM3' 
If  (Lc'Owr. .  LE.  10)  THEN 

ELSE 


If  CflxPt.GT.C.AND. 1 fixpt . LT. Sf lux)  THEN 

Nsteos  -  NINT (-1.0  ♦  (FluxTm {I fixpt ♦ 1 ) - (Time*Dt ) ) / 
(Dt/2.C> ) 

If  {S' steps.  LT.  I)  S'steps  *  ' 

If  (S’steps.  LT.  20 )  THEN* 

Dt  «  Dt'Nsteps^DtStep  *  Dtttin 
DtDown  *  .true. 

ESDI? 

I  f  ( 1 1  Star.  AND  .  Lc  <Dwr. .  GT  .11)  THEN 
DtStar  *  . false 

DtDown  »  .false. 

Dt  »  Dtain  -  DtStep'DtMax 

end:? 

I?  (DTALTR . 03. DtDown)  THEN 
CALL  MbalcX 

If  (. not . DtDown)  DT  *  DT  *  DtStep*DtMax 
If  (Dt.  LE.DrMin*DtStep*Dc.Xax)  Dt  «  DtMinOt St ep*Dt.Xax 
IF  (DT.  3E.DT.Max)  THEN 
DT  -  DTMax 
DTALTR  -  .FALSE. 

ENDIF 
END  IF 


Return 

END 

Subroutine  RepPrf 


C  This  routine  reports  a  profile  for  all  active  ions 


INCLUDE  ' Hydra z in. CM3' 

Character  Label *8,  Rest  *65,  St  r’/al  "7 
If  ( I  repet . GT . 1)  THEN 

Write (StrVal, 1000)  PoreVi 
1  OCC  r  o  mat  (F7 . 4 ) 

Rest  *  St rVal//' //RIabel  (1 : 57) 

Do  30  Ion  -  l,Nions 
If  (USelon (Ion) )  THEN 

Label  »  Solute ( Ion) ( 1 : 61 //' Cd' 

Write ( 1 4, 101 0)  Label , Nodes -2, Rest 
1010  Format  (A,  I  5,  IX,  A) 

Do  5  Idep  -  2,Sodes-i 

5  Write (14, 1020  Dx* ( Idep-1 . 5) , Cdissv ( Ion, laep) 

1020  Format (2G12 . 5) 

If  (CEC.GT . ApprxO)  THEN 
Lacel  (8:8)  »  'X' 

Write(14,  1010)  LaDei , Nodes -2 , Rest 
Do  10  Idep  3  2,  Nodes -1 

10  Write ( 14, 102C)  Dx* (Idep-1 . 5 ), Csorb ( Ion, Idep) 

ENDIF 

If  {Ion.LE.2)  THEN 

If  (RatRev ( Ion, I ) * PatRev  ( Ion, 2)  . GT . ApprxO)  THEN 
Lacel  ( 8  :  9 )  •  '  ? ' 

Write (1  * , 101 C)  Label , Nodes-2, Rest 
Do  15  .dep  =  2,Nodes-l 

15  Write  (1 4 , 1 C2C )  Dx* (Idep-1 . 5) , Adsoro (Ion, Idea) 

ENDIF 

If  (RatRev( Ion, 4) ■RatRev Con, 5) . GT. ApprxO)  THEN 
Label  (0:9)  -  'C' 

Write  (14, 1010)  La oe 1 , Nodes-2, Rest 
Do  20  Idep  *  2, Nodes-! 

20  Write  (14,  1020)  Dx • ( I  cep-1 . 5 > , Fixs rb ( I  on, laep ) 

ENDIF 

If  (RatRev  (Ion,  6)  *RatRev  (Ior.f  7*  .  GT.  ApprxO)  THEN 
Label  (3:9)  -  '  3' 

Write(14,1010)  Lacel, Nodes -2, Re: t 
Do  25  Idep  *  2,Nooes-l 

25  Write  (1  4  ,  1  020)  Dx*  ( Idep-1  .  5)  ,  Bo  :r.d  do:.,  I  uepi 

ENDIF 
END  I  F 
END  IF 

30  Continue 

stum 

END 

Subroutine  EndPgm (Text ) 


C  T^is  routine  terminates  the  program  witn  m  error  “essa^e 


•'  recalculate  the  esuati 
•up  to  the  maximum  limit 


on  constants  usee  in  the 
set  by  tr.e  parameter  file- 


(setup  a  label-continuation  text-string! 

■  for  ail  active  ions i 

i  write  the  depth  and  t.he  concentration i 
•'then  the  3orced  concentrations  (if  DEC  >0) 


if  there  is  a  loosely  screed  compartment, 
report  on  it! 


•  if  -.here  is  a  tigntly  so r bee  compartment. 

•  repo rt  on  it  : 


•  if  tr.e  re  is  a  permanently  bound  compartment.  . 
■  repo  rt  or.  it  • 
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IMPLICIT  DOUBLE  PRECISION  (A-H, 0-2) 

Character  AIL r.e* 90 
Pead ( 1 0 ,  I CCO )  I  value,  ALL  r.e 
Format  (US,  A) 

Write  (12,  1000)  lvalue,/  ..e  (1  :  Ler.Cri  (ALir.ei! 
Pet  um 
END 

Subroutine  Ecr.oSt  (Text’ 


:s  routine  reads  and  <»rr  ^ 


fro* 


IMPLICIT  DCU3LE  PRECISION'  lA-H.U-I) 
Character* (■)  Text , AL ire" 3  I 
Ler.Txt  =  Ler.  (Text) 

Read  (1 0,  1000)  Aline 
Format  (A) 

Write ( 12,1 000)  Aline ( 1 : LenOrl  (Aline) ) 
Text  =  Ai  i r.e  ( I  :  Ler.Txt  I 
Return 
END 

Integer  Function  LenOrl  (STRING) 


returns  as  LENGTH  the  position  of  the  last  non-blank  char,  in  STRING 


CHARACTER- (•)  STRING 

LstChr  =  Ler.  (String) 

DC  10  I  -  I , LstChr 
J  -  LstChr  1  -  I 
IF  (STRING (J:J) .NS.  '  *  )  THEN 
Length  *  J 
Goto  20 
END  IF 
10  CONTINUE 

20  If  (Length. LE. 0)  Length  »  1 
LenOrl  *  Length 
RETURN 
END 

Logical  Function  St  r2 Lo  < Tex 1 1 


C  this  routine  converts  a  yes/no  answer  into  a  logical  value 

C - - - 

Character* (• )  Text 
Call  StrCap(Text) 

Call  ShfTxt (Text) 

If  (Text (1:1) . EQ. ' Y' )  THEN 
Str2Lo  -  .true. 

ELSE 

St r2Lo  “  .false. 

ENDIF' 

Return 

END 
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D.  Example  of  a  Parameter  files  for  the  Hydrazine  program 

E2KFstCL.RES  :  Filename  for  results  storage 
11.9ppm-5  cm/hr  cont-Kin-  (BTC  24) 

30.0  :Column  Length  (cm) 

32400.0  :Time  to  terminate  simulation  (sec) 

.25  tSaturated  Water  Content 

.13889E-02  :Saturated  conductivity 
1.63  :Bulk  Density  (gm/cc) 

.2694E-03  :Dispersion  intercept 
0.1105E-02  :Bound  Maximum  capacity 

No  : — >  Activate  Ion-Exchange  < — 

Yes  : — >  Activate  Reversible  Sorption  < — 

Yes  :Activate  Kinetic  Reversible  Sorption 
0.0  :Hydrazine  Rate  Coefficient  (kf) 

0.0  :  Hydrazine  Rate  Coefficient  (kb) 

1.0  :  Hydrazine  exponent  Coefficient  (N) 

0.0  tHydrazine  Rate  Coefficient  (kff) 

0.0  tHydrazine  Rate  Coefficient  (kbb) 

0.0  tHydrazine  Rate  Coefficient  (kp) 

0.0  tHydrazine  Rate  Coefficient  (kq) 

Yes  tActivate  Kinetic  Reversible  Sorpdon 
0.100E-02  tHydrazinium  Rate  Coefficient  (kf) 

0.500E-02  tHydrazinium  Rate  Coefficient  (kb) 

1.00  tHydrazinium  Exponent  Coefficient  (N) 

0.300E-03  tHydrazinium  Rate  Coefficient  (kff) 

0.700E-03  tHydrazinium  Rate  Coefficient  (kbb) 

0.0  tHydrazinium  Rate  Coefficient  (kp) 

0.100E-02  tHydrazinium  Rate  Coefficient  (kq) 

No  :— >  Activate  Irreversible  Sorption  < — 

No  : — >  Activate  Microbial  Degradation  <— 

No  >  Activate  Auto-Oxidation  <-- 
No  : — >  Activate  Hydrolysis  Conversion  < — 

1  tNumber  of  boundary  condition  specs 
0.0  :- — >  Depth  (cm)  <— - 

.0  tHydrazine  in  solution  (meq/cc) 

.IE-09  tHydrazinium  in  solution  (meq/cc) 

.0  tHydrazinium  sorbed  (meq/g) 

.01  tCalcium  in  solution  (meq/cc) 

.0  tCalcium  sorbed  (meq/g) 

.0  tOxygen  in  solution  (meq/cc) 

.0  tCalion  Exchange  Capacity  (meq/g) 

.25  :Dx  =  Nodal  increment  (cm) 

50.  :  Maximum  Dt  (secs) 

1  tNumber  of  flux  changes  during  run 
0.0  tTime  (sec)  of  flux  change 

5.0  tFlux  (cm/hr)  imposed 

.0  tHydrazinium  in  solution  (meq/cc) 

.23771 E-03  .Hydrazine  in  solution  (meq/cc) 

.01  tCalcium  in  solution  (meq/cc) 

.0  tOxygen  in  solution  (meq/cc) 

1  tNumber  of  reports  to  be  generated 
32400.0  tReport  to  be  generated  (sec) 

1.0  tDivisor  scale  factor  for  breakthrough 

.23771  E-03  tDivisor  scale  factor  for  breakthrough 

.01  tDivisor  scale  factor  for  breakthrough 

1.0  tDivisor  scale  factor  for  breakthrough 

No  tFeedback  for  debugging 
100  tabortion  check  periodicity 
0.10  tTolerance  Limit  in  percentage 

20  tNumber  of  passes  before  iterative  failure 
.50000000E-01  tlncrement  for  Dt  -  fractional 
-30.0  tPower  for  approximately  zero  value 

Yes  tActivate  the  two-site  model 
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APPENDIX  C 

COMPUTER  CODE  FOR  TWO-DIMENSIONAL  MODEL 


2.  Computer  Code  for  Two— Dimensional  Model 

Program,  for  Creating  Two-Diaiens i  *»na  1  Boundary  Conditions  File  (MHO) 
Program  SysMak 


Dimension  Head (41,41), Solute (41, 41 ) , Surfac (41 ) , Seep (41 )  , 

&  Drain(41) 

Integer  Surfac, Seep, Drain, Row, Col 
Character  Title*80,Finput*15 

Logical  AskQus,  DranOn,  SeepOn,  Surf  On,  AltHed,  Alt  Sol 

Call  Page ('Create  2-D  MHD  file')  (Initialize  paging  routines i 

1  Call  Genral (Title, Dx, Finput,Ncols,Nrows,Hval, Sval,  {get  general  description  of  system! 

6  DranOn, SeepOn, SurfOn, AltHed, AltSol) 

DO  30  I  ■  1 , Nrows  (set  seep  fc  drain  to  non-existence) 

Seep(I)  -  1 
Drain(I)  =  1 

Do  30  J  *  1, Ncols  (and  matrices  to  uniform  values) 

Solute(J.I)  •  Sval 
30  Head ( J, I )  -  Hval 

Do  35  J  *  1, Ncols  (and  the  surface  to  -  single  zone) 

35  Surfac(J)  *  1 

If  (SeepOn)  Cali  SeepDf (Seep, Nrows)  (define  the  seep) 

If  (DranOn)  Cali  DranDf (Drain, Nrows )  (define  the  drain/ 

If  (SurfOn)  Call  SurfDf (Surfac, Ncols)  (define  the  surface  zones; 

If  (AltHed)  Call  Aiter('Head  ', Head, Ncols, Nrows )  (set  up  special  head  regions) 

If  (AltSol)  Call  Alter(' Solute' , Solute,  Ncols,  Nrows)  (set  up  special  solute  regions) 

Call  PrtDat (Title, Dx, Ncols, Nrows, Surfac, Seep, Drain,  (create  the  MHD  file) 

*  Head, Solute) 

If  (AskQus  (' Rerun  program?' ,. false ., 22) )  Goto  1 
END 

Subroutine  Genral (Title, Dx, Finput , Ncols, Nrows, Hval , Sval, DranOn, 

&  SeepOn, SurfOn, AltHed, AltSol ) 


Save 

Dimension  Answer(12) .Query (12) ,String(12) 

Character  Tit le*90, Finput • 15, St  ring* 9  0, Query*  80 
Logical  AskQus , DranOn, SeepOn, SurfOn, AltHed, AltSol , BadVal, 
&  Rel2Lo, Error 

Real  Lo2Rel 

Data  N i terns /I 2 /, LenQry/ 50/, Query/ 

&  ' 0501S?  Title' , 

&  ' 0602S?  File  name', 

&  '08031?  Number  of  columns  (3.. 40)', 

5  '09041?  Number  of  rows  (3.. 40)', 

6  ' 1 005R?  Overall  head  value', 

&  '1106R?  Overall  solute  value', 

&  '1307LD  A  seep  zone  exists', 

&  ' 1 408LD  A  drain  zone  exists', 

&  '1509LD  Multiple  surface  zones  exist', 

&  '1710LD  Head  subregions  exist', 

&  ' 1 81 1 LD  Solute  subregions  exist', 

&  ' 2012R?  Node  spacing  (cm)  (-Dx)'/ 

Data  Answer/65. ,15. ,4*0., 5*2. ,0./ 

1  3adVal  -  . false . 

Call  MenFil  (LenQry, Ni terns, Query, Answer, String,  . true .  ) 
Title  -  St  ring ( 1) 

Call  St rLen (Title, Length) 

If  (Length. LE. 1 )  Title  -  'No  title  given' 

Finput  »  String<2) 

Call  StrLen (Finput, Length) 

If  (Length. LE.0)  THEN 
BadVal  -  .true. 

ELSE 

Call  OpnFil (Finput, 12, ' NEW' .Error) 

If  (.Not. Error)  Goto  10 
BadVal  -  .true. 

ENDIF 

10  If  (BadVal)  THEN 

String (2)  -  'BAD  NAME!' 

Goto  1 
ENDIF 

Ncols  -  NINT (Answer (3) ) 

If  (Ncols. LE. 3. OR. Ncols. GT. 40)  THEN 
Query  (3)  (6:6)  -  '  ?' 

Goto  1 
ENDIF 

Nrows  -  NINT (Answer (4 ) ) 

If  (Nrows . LE . 3. OR. Nrows. GT. 40)  THEN 
Query  (4)  (6:6)  -  '  ?' 

Goto  1 
ENDIF 

Hval  -  Answer (5) 

Sval  -  Answer(6) 

Seepon  -  Rel2Lo (Answer (7)  ) 

DranOn  -  Rel2Lo  (Answer (8) ) 

SurfOn  -  Rel2Lo (ANswer ( 9) ) 

ALtHed  -  Rel2Lo (Answer (15) * 

AltSol  -  Rel2Lo (Answer ( 1 1 ) ) 

Dx  -  Answer(l2) 

If  (Dx.LE.0.0)  THEN 


259 


Que ry ( 1 2 1  1 6 : 6 )  *  ' ?  * 

oOC  O  1 

ESDI? 

Return 

END 

Subroutine  SeepDf (Seep, Nrows) 


Dimension  Seep (41) .Answer (3) .Query (3) ,String(3) 

Character  Query *80, St  ring* 80 
Integer  Seep 

Data  Nitems/3/, LenQry/60/, Query/ 

4  '  Q700CC  Definition  of  a  seep  (left  side  of  system)', 

4  ' 13011?  First  row  included  in  the  seep  (>1)', 

4  '  12021?  Last  row  included  in  the  seep  l<xx)  '  / 

Write (Query  (3)  (40 : 41 ) ,  1000)  Nrows 
1000  Format (12) 

1  Call  MenFiL (LenQry, Nit  eras , Query, Answer, String, .true. ) 

If  (NINT (Answer  (2) )  .LT. 2. OR. MINT (Answer (2) )  -GT. Nrows- 1 -OR. 

&  Nint (Answer (2) ) .GT. NINT(Answer (3) ) )  THEN 

Query  (2 )  (6:6)  ■  '  ?' 

Goto  1 
END  IF 

If  (NINT (Answer  (3) )  . LT. 2. CR. NINT (Answer (3) ) .GT. Nrows- 1 )  THEN 
Query  (3)  (6:6)  *  '  V 
Goto  1 
ENDIF 

Do  10  I  =  NINT (Answer (2) ), Nint (Answer (3) ) 

10  Seep ( I )  -  0 
Return 
END 

Subroutine  DranDf (Drain, Nrows ) 


Dimension  Drain(4l) .Answer (3) .Query (3) .String (3) 

Character  Query*80, String*80 
Integer  Drain 

Data  Nitems/3/, LenQry/60/, Query/ 

4  ' 0700CC  Definition  of  a  Drain  (right  side  of  system)', 

4  *10011?  First  row  included  in  the  drain  (>!)', 

4  '12021?  Last  row  included  in  the  drain  (<xx)'/ 

Write (Query (3) (41:421,1 000)  Nrows 

1000  Format(I2) 

1  Call  MenFil (LenQry, Nitems, Query, ANswer, String, . true . ) 

If  (NINTfAnswer (2) ) . LT . 2 . OR . NINT (Answer (2 ) ) . GT . Nrows- 1 . OR . 

5  Nint (Answer (2) ) . GT. NINT (Answer (3) ) )  THEN 
Query  (2)  (6:6)  -  '?' 

Goto  1 
ENDIF 

If  (NINT (Answer (3) ) . LT . 2 . OR. NINT (Answer (3 ) ) .GT. Nrows- 1 )  THEN 
Query  (3)  (6: 6)  -  ' ?' 

Goto  1 
ENDIF 

Do  10  I  -  NINT (Answer (2) ), Nint (Answer (3) ) 

10  Drain(I)  ■  0 
Return 
END 

Subroutine  SurfDf (Surf ac, Ncols ) 


Dimension  Surfac ( 11 ) , Test  (41) 

Character  Aline*40, Zone’2 
Integer  Surfac, Test 
Logical  AskQus 
DO  1  I  =•  1,  Ncols 
1  Test (I)  -  Surfac(I) 

Nzone  ■  1 

5  Call  Notice('The  current  surface  Is  set  to: ' ,  . true. ,  S) 

Call  Vtab  (7) 

Write (*,1000)  (Test  U> , 1-1, Ncols) 

1000  Format (4  ( '  l',8X,'  6' , 8X) , / , 40 ( IX, 1 1 ) ) 

10  If  (AskQu: ( ' Do  you  wish  to  alter  the  zone  definition?  (Y/N) :  N' 

6  //Char (8) false. , 10) )  THEN 
Nzone  *  Nzone  ♦  l 
If  (Nzone. GT.S)  THEN 

Call  Wamin('There  can  only  be  5  or  fewer  zones' ,.  false. ,  12) 
Nzone  *  Nzone  -  1 
ELSE 

Write (Zone, 1005)  Nzone 
1005  Format  (12) 

15  Call  Notice (' WEnter  1st  and  last  column  for  zore  '//Zone// 

&  ',. false. , 12) 

Read ( “ , *, Err»l S )  Icsl,Ics2 

If  (Icsl.GT.Ics2. OR  Tcsl . LT.l -OR. Ics2.GT. Ncols)  Goto  15 
DO  20  I  -  Icsl, Ics2 
20  Test ( I )  ■  Nzone 

If  (Ics2. LT. Ncols)  THEN 
DO  25  I  -  Ics2*i, Ncols 
25  Test (I)  -  Nzone  ♦  l 

ENDIF 
ENDIF 
Goto  5 
ENDIF 

DO  30  I  •  1 , Ncols -1 
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If  (Test  { I  >  . LE. 3 . OR .  Test  ( I )  . GT. 5 . OR. Test  ( I )  .  GT .  Test  (Mil 
i  THEN 

Call  Wa  rr.ir.  ('  2or.es  are  out-of-order  or  <  l  or  >  51', 
i  . false. , ’ *) 

Goto  5 
END  IF 

3C  Continue 

Do  35  I  -  1 , Ncois 
35  Surfac(I)  -  Test (I) 

Return 

END 

Subroutine  Alter (Which, Data, Ncois, Nrows) 


Dimension  Data  (41, 41) 

Character  Which* 6 
Integer  Row, Col 
Logical  AskQus 

1  Call  Notice ('Do  you  wish  to  specify  a  zone  of  different  values7, 
&  . t  rue . , 3 ) 

If  (AskQus (' for  the  '//Which//7  matrix?  (Y/N) :  N'//char(8), 

&  .false., 6))  THEN 

10  Call  Vtab  (8) 

Write  (*,  1000)  7  1st  6  last  columns' 

1000  Format (7  Please  enter7, A,7:  ',\) 

Read (*, *, Srr=10)  Icsl,Ics2 

If  (Icsl . GT. Ics2.CR. Icsl . LT. 1 .OR. Ics2.GT. Ncois)  Goto  10 
20  Call  Vtab  (10) 

Write {•, 1000)  7  1st  &  last  rows' 

Read (#, * , Srr«20)  Irsl,Irs2 

If  ( I rs 1 . GT. I rs2 . OR , I rs 1 . LT. 1 .OR . I rs2 .GT . Nrows)  Goto  20 
30  Call  Vtab  (12) 

Write (*, 1000)  7  region7 7 s  value' 

Read (*, *,Err-30)  Rval 
Call  Vtab (i5) 

Write (• , 1010)  Which, Icsl, Ics2, Irsl, I rs2, Rval 
1010  Format ( 7  The  ',A, '  matrix  from  cols  7,I2,7..',I2, 

&  7  t  rows  7 , 12, 7 .  . 7 , 12, 7  will  be  set  to  7,G12.5) 

If  (AskQus ('Is  this  correct?  (Y/N):  Y' //char (8), 
i  .false. ,22))  THEN 

DO  40  Col  -  Icsl, Ics2 
DO  40  Row  -  Irsl, Irs2 
40  Data  (Col,  Row)  »*  Rval 

ENDIF 
Goto  1 
ENDIF 
Return 
END 

Subroutine  PrtDat (Title, Dx, Ncois, Nrows, Surf ac, Seep, Drain, Head, 

&  Solute) 


Dimension  Head (41,41), Solute (4 1 , 4 1 ) ,Surfac (41) , Seep (41) , 
&  Drain(41) 

Integer  Surf ac, Seep, Drain 
Character  Title *80, Finput* 15,ALine*132 
Write  (12, 1010)  Title 
1010  Format(A) 

Write  (12,  1020)  Ncol s, Nrows , Dx 
1020  Format (215, G12. 5) 

Write (12, 1030)  (Surf ac ( I ) , 1=1 , Ncois) 

1030  Format (3X, 10 (5X, 12,  5X) ) 

If  (Ncois. GT. 10)  THEN 
Istop  =  10 
ELSE 

Istop  =  Ncois 
ENDIF 

Do  130  I  =  1, Nrows 

If  (Ncois. GT. 10)  THEN 

Write (Aline,  1035)  Seep(I),  (Head  ( J, I ) , J-l , 10) 

1035  Format  (IX, II, IX, 10G12. 5) 

Call  St rLen (Aline, Length) 

Write  (12, 1010)  ALine (1 : Length) 

Nstop  -  10 

12S  Nstop  =  Nstop  ♦  10 
Nstart  -  Nstop  -  9 
If  (Nstop . GT. Ncois )  Nstop  -  Ncois 
ALine  »  7  7 

Write (Aline, 1040)  (Head (J, I) ,J=Ns tart, Nstop) 

1040  Format (3X, 10G12. 5) 

If  (Nstop. LT. Ncois)  THEN 
Cali  St rLen (Aline, Length) 

Wri‘  (12,1010)  ALine (1 : Length) 

Goto  125 
ELSE 

Call  StrLen (Aline, Length) 

Write (Aline (Length+2 : Length* 2) ,1045)  Drain(I) 

1045  Format  (ID 

Write  (12, 1010)  Aline  (1 : Length*2) 

ENDIF 

ELSE 

Write (Aline, 1035)  Seep < II ,  <Head(J, I ) , J=Z, Ncol s ) 

Call  StrLen (Aline, Length) 

Write (Aline (Length *2: length  *■  2) , 104S)  Drain (I) 
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Write  (12,  1 0 1 C j  Aline  ( 1 :  Length *-2) 

END  If 

30  Continue 

Do  135  I  -  1 , Nrowa 

35  Write (12, 1C40)  (Solute ( J, I) , J»1 , Ncols 1 
Close  (12) 

Return 

END 
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Glossary  of  Common  31oc<  Variables  in  7WCDSXA? 
Two-Dimensional  Transient  Water  £  Solute  Flow  Simulation 


3ulkdn  *  Bulk  Density  (gm./cc) 

Cact  -  Total  Solute  which  entered  the  system  plus  what  was  there  originally 

CapMin  -  Minimum  value  the  water  capacity  will  be  allowed  to  assume 

Cdissv  -  Solute  concentration  (meq/cc) — dimensioned  as  (2, 0 : MaxCol* 1, 0 :MaxRow+l ) 

Cinic  •  Total  amount  of  solute  at  the  start  of  the  simulation 

Chow  *  Current  actual  total  solute  concentration  at  a  given  point  in  time 

Col  -  Column  index 

Cor.Sat  -  Saturated  conductivity  (cm/sec) 

Cored  ■  Total  solute  in  the  system  plus  that  which  left  at  a  given  point  in  time 

Diagon  =  'B'  coefficient  used  ip.  the  Thomas  algorithm  —  dimensioned  as  (MaxCol) 

DisprO  =  Intercept  coefficient  for  dispersion  equation 
Disprl  a  Slope  coefficient  for  dispersion  equation 
DranMn  -  Node  at  which  the  drain  started 

DranMx  -  Node  at  which  the  drain  ends 

Dt  »  Current  time  interval  (sec) 

DtDown  •  Boolean  which  indicated  that  the  Dt  value  is  decreasing 
Dtm.ax  “  Maximum  DC  value  (sec) 

Dtmin  »  Minimum  Dt  Value  (sec) 

DtStar  -  Boolean  which  indie  .t that  the  Dt  value  is  to  be  changed 
DtStep  -  The  increment  that  Dt  increases 
Dx  -  Nodal  spacing  (cm) 

ExpLin  *  Exponent  used  in  non-linear  retardation  coefficients 
Fbrkth  *  Filename  of  the  Breakthrough  file 

Flow In  ■  Mass  balance  accumulators  for  water  £  solute  input  —dimensioned  as  (C:2) 

FlowOu  *  Maas  balance  accumulators  for  water  £  solute  output  —dimensioned  as  (0:2) 

Fluxtm  *  Times  (secs)  at  which  flux  values  change  —dimensioned  as  (MaxSet) 

Fraatrx  -  Filename  of  the  file  which  will  hold  the  output  matrices 
Fprint  -  Filename  for  the  results  reports 
GravFc  -  Gravity  factor  (l«gravity  on,  0  «  off) 

Head  *  Pressure  head  (cm)  — dimensioned  as  (3 , 0 : MaxCol* 1 , 0 : MaxRow* 1 ) 

Ibrk  ■  Counter  which  tracks  the  number  of  points  in  the  BTC  curve 
Icheck  *  The  number  of  iterations  between  checks  on  external  abort  commands 
IflxPt  ■  Integer  pointer  which  indicates  which  flux  values  are  current 
I  repet  »  Counter  of  the  number  of  Dt  Steps  which  have  taken  place 

ItrLim  -  The  maximum  number  of  iterations  attempted  during  any  convergence  attempt 

ItrTrk  ■  Array  which  tracks  the  relative  frequency  of  various  iterative  values  — dimensioned  as  (0:1,0:30) 

LckDwn  -  Boolean  which  indicates  that  the  Dt  is  fixed  at  DtMin 

MaxCol  *  Maximum  number  of  columns  in  the  system 

M.axRep  »  Maximum  number  of  reports 

MaxRow  -  Maximum  number  of  rows 

M.axSet  =  Maximum  number  of  parameter  sets 

Ncols  -  Number  of  columns  in  simulation 

Nflux  »  Number  of  flux  changes  occurring  during  the  full  simulation 
Nrepr  *  Number  of  reports  occurring  during  the  simulation 
Nrows  -  Number  of  rows 

Nzone  =  Surface  zones  (1..?)  for  a  given  column  — dimensioned  as  (Maxcol) 

OpenDr  -  Boolean  indicating  whether  the  drain  is  open  or  not  — dimensioned  as  (MaxRows) 

Qijmh  -  Flux  values  (q*Dx/2)  half  a  node  above  any  node  — dimensioned  as  (MaxCoi , MaxRow ) 

Qijph  -  Flux  values  (q*Dx/2)  half  a  node  below  any  node  — dimensioned  as  (MaxCoi , MaxRow) 

Qimhj  -  Flux  values  (q*Dx/2)  half  a  node  to  the  left  of  any  node  — dimensioned  as  (MaxCoi , MaxRow) 

Qiphj  -  Flux  values  (q*Dx/2)  half  a  node  to  the  right  of  any  node  — dimensioned  as  (MaxCoi , MaxRow) 

Reflet  -  Boolean  indicating  that  the  surface  is  a  reflection  boundary 

RepHed  *  Boolean  indicating  that  the  IFLXPT  report  is  to  include  head  values  — dimensioned  as  (0:MaxRepj 

RepSol  -  Boolean  indicating  that  the  IFLXPT  report  is  to  include  absolute  solute  values  — dimensioned  as  (0:MaxRep) 

RepThe  *  Boolean  indicating  that  the  IFLXPT  report  is  to  include  theta  values  --dimensioned  a3  (0:MaxRep) 

Result  -  'D'  coefficient  of  the  Thomas  Algorithm  — dimensioned  as  (MaxCoi) 

Rlabel  *  Run  label 
Row  =  Row  index 

RpConc  *  Boolean  indicating  that  the  IFLXPT  report  is  to  include  solute  concentration  values  --dimensioned  as  (0:MaxRep) 

Rtime  *  Pointer  indicating  the  next  report 

SbDiag  -  'A'  coefficient  of  the  Thomas  Algorithm  — dimensioned  as  (MaxCoi) 

Sdissv  -  Temporary  holder  of  solute  values  — dimensioned  as  (MaxCoi , MaxRow) 

SeepC  -  IFLXPT  concentration  of  solute  at  the  seep  — dimensioned  as  (MaxSet) 

SeepMn  -  Node  at  which  the  seep  started 

SeepMx  -  Node  at  which  the  seep  ended 

SeepQ  *  IFLXPT  flux  at  the  seep  — dimensioned  as  (MaxSet) 

Shead  -  Temporary  holder  of  head  values  — dimensioned  as  (MaxCoi, MaxRow) 

SlSrbC  -  Retardation  coefficient 
SolErr  -  Solute  Error  (%) 

SolFix  ■  Boolean  indicating  that  the  solute  is  frozen 

SolMax  -  Maximum  expected  solute  concentration  anywhere  in  the  system 

Solute  »  Character  strings  of  'Water'  and  'Solute'  — dimensioned  as  (0:1) 

SpDiag  -  'C'  coefficient  of  the  Thomas  Algorithm  --dimensioned  as  (MaxCoi) 

Strict  ■  Boolean  indicating  that  the  iterative  tolerance  criterion  is  applied  without  exception 

SurfC  *  IFLXPT  concentration  of  solute  at  the  surface  in  the  indicated  zone  --dimensioned  as  (MaxSet , MaxSet I 

SurfQ  *  IFLXPT  flux  at  the  surface  in  the  i  .dicated  zone  — dimensioned  as  (MaxSet)  (MaxSet , MaxSet ) 

Table  -  Vector  containing  coefficients  need  to  calculate  Head-Theta-Conauctivity  relations  --aimensioned  as  (S) 

TDijmh  -  Theta*Disperrion  value  above  any  node  — dimensioned  as  (MaxCoi, MaxRow) 

TDijph  -  Theta*Disperslon  value  below  any  node  — dimensioned  as  (MaxCoi, MaxRow) 

TDlrahj  •  Theta*Dispersion  value  to  the  left  any  node  — dimensioned  as  (.MaxCoi, MaxRow) 

TDiphj  ■  Theta*Dispersion  value  to  the  right  any  node  — dimensioned  as  (MaxCoi , MaxRow) 

ThetaS  •  Saturated  Water  content 
Time  -  Current  time  (secs) 

Tlevel  ■  Tolerance  level  (%)  used  to  determine  when  two  consecutive  guess  are  close  enough 
TmLast  -  The  time  of  the  last  report 

TmRepr  -  The  times  at  which  reports  are  to  be  generated  — dimensioned  as  (0:MaxRep) 

TmSpan  -  The  time  between  successive  BTC  curve  points 
Tmstop  »  The  time  to  stop  the  simulation 

Wact  *  The  initial  water  content  plus  all  water  that  entered  the  system 
WatErr  »  Error  (%)  for  water  (based  on  Theta) 

WatFix  -  Boolean  indicating  that  the  Water  is  at  a  steady  state 
Winit  «  The  initial  water  content 
Wnow  ■  The  current  water  content 

Wpred  »  The  current  water  content  .us  whatever  left  the  system 
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Common  Blocks  (INCLUDE  file)  for 


ommon  block  for  twodSolu 

Implicit  Double  Precision  (A -H,0-Z) 

SAVE 

Pararaet er  (MaxCol«*Sl ,  MaxRow*51,  MaxSet=5,  MaxRep=10) 
Common/Comchr/Rlabel, Fprint , Fnat rx, Solute (0: 1) ,Fbrkth 
Common/Contrl/CapMin, DisprO, Disprl,DtDown, Dtmin, Dtmax, DtStar, 

4  DtStep,  DC,  Dx,  ExpLin, Feedbk ,  GravFc,  Ibrk,  I  check, 

4  I  repet, ItrLlm, ItrTrk (0:1,0: 30) , LckDwn, Nrows, 

£  Ncols,  OpenDr (MaxRow) , Reflet , Rtime, SIS rbC, 

4  Strict,  SolF ix,SoiMax,Ti me, T level,  Tmstop,  Wat  Fix 

Common/ Zores /SeepMn,  SeepMx,  N’zone  (Maxcoi  )  ,  DrarMn,  DrarMx 
Common/Fiux/Fluxtm  (MaxSet)  ,  Nf  lux,  I  f  IxPt ,  TmSpan, 

4  SurfQ (MaxSet, MaxSet) , Surf C (MaxSet , MaxSet )  , 

4  SeepQ (MaxSet) , SeepC (MaxSet) 

Common/MassBi/FlowIn (0:2), FiowOu (0:2) , WatErr, Winit , Wact, Wpred, 

4  Nnow, SolErr,Cinit , Cact , Cpred, Cnow 

Common/Matrix/Head  (3,0:  MaxCol *1 , 0  :  MaxRow*  1 )  , 

&  Cdiasv (2, 0 : MaxCol*l , 0 : MaxRow* 1 ) , 

4  Shead (MaxCol , MaxRow) , Sdissv (MaxCol , MaxRow) , 

4  Qirah j (Maxcoi, MaxRow) ,Qiph j (MaxCol , MaxRow ) , 

4  Q1 jnh (MaxCol , MaxRow) ,Qi jph (MaxCol, MaxRow) , 

4  TDimh j (Maxcoi, MaxRow) , TDiphj (MaxCol , MaxRow)  , 

4  TDi jmh (MaxCol, MaxRow) , TDi jph (MaxCol , MaxRow) 

Comnson/RepDat/Srepr,RepHed (0:MaxRep) , RepSol (0:MaxRep) , 

4  RepThe  <0 : Max Rep) , TrcRepr (0 : MaxRep) , TmLast , 

4  RpConc (MaxRep) 

Common/ Soil/3ulkdn, Table (5) , ThetaS, ConSat 

Common/TriDaC/SbDiag (MaxCoi ) , Diagon (MaxCol ) , SpDiag (MaxCol ) , 

4  Result (MaxCol) 

Character  Rlabel-80,Fprint“15,Fmatrx“ 15, Solute* 16,Fbrkth*15 
Integer  Row,  Col,  Rtime, SeepMn, SeepMx, SurfMn, SurfMx, DranMn, DranMx 
Logical  FeedBk, DtStar, RepHed, WatFix, RepThe, DtDown, RepSol , RpConc, 
4  SolFlx, OpenDr, Ref let , St rict 


7WCDSWA? 
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;oce 


;swa? 


Dr.  Stepr.cn  A.  31  oot.  -  for  Dr.  Robe 
This  is  4  Transient  2-Diner,  sior.ai  Wat e 


INCLUDE  Twodswap.crab 

Logical  Redo, Abort , Stopit, FirOvr 

Data  Fi rOvr/ . t rue . / 

Call  Page (' Two-Dimensional  Transient  Water  &  Solute  Flow' ) 

Call  StartR 

Call  SetSTD 

Abort  *  Stop 1 1 ( l 

Call  Report ( .true. j 

Call  Not  ice (Rlabel, . t rue . , 3) 

— REPEAT - 

Call  ChkFlx 
Call  Dt Chan 
Redo  ®  .  false . 

TIME  =  TIME  ♦  DT 
I  REPET  =  I REPET  +  1 

If  ( .not .Abort . AND. MOD (I repet, I check) -EQ.O)  Abort  *  Stopit  () 
Call  ChkFlx 


3/  S  3 

h  Ret  a  roe a  Solute 


(initialize  the  program  utility  name} 
iacquire  the  run  parameters  &  initialize  the  system! 
•initialize  the  flux  ar.a  Theta-Dispersior.  values  j 
•.initialize  tne  external  acort  system'' 

'.record  initial  start  conditions  of  col. 


(impose  the  initial  flux /head  conditions! 

{ check  whether  Dt  needs  c r.ar.gir.g; 

•  don't  have  tc  rede  me  water  wr.en  starting  a  Dt  step! 
{increment  the  eloex! 

(increment  the  iteration  counter ; 

(check  if  external  aoort  desired) 

(check  for  flux  changes! 


Ir  (Time.  GE .  (Ibrk*  1 )  'TraRepr  (Nreps) /200 . 0 .  OR.  Abort )  Call  3rk0ut  (  &  save  breaktr.ru  info  periodically- 


IF  ( Time. GE . TMR2PR (Rtime) .CR. Abort )  Call  Report (. t rue . ) 
If  ( . Not . Abort . AND. Time. LT . TmStop)  THEN 
Call  Watltr (Ipassi 
Call  SetQTD 

Call  Soiitr (Redo, Jpass, CdMax) 

If  (Redo)  Goto  20 
Call  MBUpDt 

If  (Ipass.GT.O)  It  rTrk (0, 1  pass )  -  ItrTrk (C, Ipass'  ♦  1 
If  (Jpass.GT.O)  ItrTrk (1, Jpass)  -  It rTrk ( 1 , Jpass)  ♦  1 


>' check  if  a  Report  is  needed- 

•simulate  tne  Water  -  read  pressure- 
{set  the  flux  &  theta-Dispe  r  si  or.  values- 
(simulate  the  solute  movement) 

(if  solute  failed,  Dt  changes,  so  reoo  water! 
(update  the  mass  calance  trackers  • 

(note  the  number  of  iterations  r.eeced-wat  e  r  • 
(note  the  number  of  iterations  r.eedec-solute  • 


If  (Feedbk . CR . MCD ( I  repet , 25 )  . EQ . 0 . CR . I  repet . LE . 1 5 ) Cal  1  Mbaick  • periodical ly  Report  the  mass  caiance  errors- 


If  (CdMax. GT.SolMax. AND. FirOvr)  THEN 
Call  Report (. false. ) 

FirOvr  *  .false . 

ENDIF 
END  IF 

--UNTT L - 

IF  < .Not .Abort .AND. Time. LT. TmStop)  GOTO  1C 
Cali  3r<Rep 
Call  Repltr 

Write ( 12, 1050)  F Lew In (2 ) , FLcwOu (2 ) 

Format  (/,'  Negative  accumulators  :  In®' ,012.  5,'  Out  = ' ,  Gi 2 . 5 ) 
CLOSE (12) 

END 

SU3R0UTine  Wat  It  r  (iterat ) 


C  This  ’-outir.e  coordinates  the  iterative  soLution  of  the  water  equation 


INCLUDE  ' Twod swap . crab' 

Logical  DoMore, InSeep, Stable 
If  (.Not .WatFix)  THEN 
Stable  *  .true. 

DO  5  Row  -  0,Nrows*l 
Do  5  Col  -  0 , Ncol s  * 1 

Hchang  »  Head  (3,  Col ,  Row)  -Head  (1 , Col,  Row) 

If  (DABS (Hchang) . GT. 1 . 0D-C6)  Stable  »  .false. 

Head  ( 1 ,  Col ,  Row)  =*  Head  (  3 ,  Col ,  Row) 

Head  (2,  Col ,  Row)  *  Head  (3,  Col,  Row)  »  Hchar.g/2 . 0D*CC 
5  Head ( 3 , Col , Row)  *  Head  (3, Coi, Row)  ♦  Hchang 

If  (Stable)  THEN  [if 

Nstable  «  Nstable  ♦  1 
If  (Nstable. GE. 5)  THEN 

WatFix  -  .true.  (< 

Write (*,  1 005 )  Time, I  repet 
Write ( 12, 1005)  TIme,Irepet 

1005  Format  ( ' - >STEADY  WATER  SYSTEM  ACKZIVED  at  ',012.5,15) 

ENDIF 

ELSE 

Nstable  -  0 
ENDIF 
ENDIF 

If  (WatFix)  THEN  (: 

Iterat  ®  0 
ELSE 

Nopen  -  0  (• 

Ntrys  -  0  ( 

9  Nopen  ■  Nopen  *•  I 

Nreset  -0  (ge1 

10  Nreset  -  [.reset  +  1 
15  I  fail  -  0 
20  Iterat  -  0 
25  Iterat  -  Iterat  ♦  i 

convergence) ) 


(if  there  nas  seen  an  overrun  of  solute  i  its- 
(the  first  time,  tr.en  generate  a  report) 


■  until  the  termr.a.  t  i-e  is  attained. 

(complete  cr.e  9TC  file  ana  Report  tr.e  iterative  • 
(traces  as  well  as  materia*  leaving  unexpected . y ■ 


(if  the  water  system  is  still  in  'flux'! 

(initially  set  stable  flag  to  true) 

(for  all  nodes  -  including  imaginary  ones! 

(for  each  node,  determine  the  N->N*1  difference! 

(if  it  is  'significant',  Stacie  is  false) 

(transfer  the  data  from  N* 1  ->  N  and  ) 

(extrapolate  the  changes  into  the  future  as  the* 

( first  guess) 

if  the  system  was  four.a  to  be  stacle  (no  head  change)  • 
(increment  the  stability  counter1 
(if  it  has  happened  5  times  in  the  row,,..) 

(conclude  that  the  system  has  reached  a  steady  state) 
ifix  the  water  as  it  stands  &  notify  the  jser) 


(otherwise  set  the  stability  counter  to  0) 


(if  the  system  is  fixed,  iteration  is  0,  otherwise..) 


(the  number  of  times  the  drain  has  attempted  to  open) 
(the  number  of  trys  at  getting  a  convergent  soution) 

get  ready  to  track  reset  efforts  &  iterative  failures! 


(count  the  number  of  passes  in  trying  to  get  a 


Ntrys  -  Ntrys  *  1 
Do  30  Row  -  l,Nrows 
Call  Wat Row (Row) 

Do  35  Col  *  l,Ncols 
Do  35  Row  ■  i,Nrows 

Head ( 3 , Col , Row)  ■  Shead (Col , Row) 
Call  FxBndH 
DifMax  -  0 . 0D  +  Q0 
Do  40  Col  ■  l,Ncols 


(for  all  real  rows  in  the  system,  solve  for  heads 
(from  N  ->  N* 1  I 

(then  update  the  future  with  the  results) 


(set  the  boundaries  as  requi red i 

'for  all  real  columns  in  tr.e  syste-',  solve 


Call  WatCol (Col, DifMax) 


tN  ->  N* l ,  update  and  set  the  bounaaries  as  required) 


I 


Do  *i 5  3cw  =*  N rows 

Heaa (3, Col , Rcw>  =  Snead (Cci,R 
Call  Fx3 r.z'r. 

If  (N't  rys .  GT .  It  rLirn.  *  5 )  Return. 

If  { DcMore ( i terat , Di f Max ) )  Goto  25 

If  literat.GE.  ItrLim.)  THEN 


(if  tr.e  tcta*.  r.umoer  of  passes  >  5*  Unit,  give  it  up: 

■ i f  a  convergent  solution  is  not  yet  acheived,  try 

{ unless  the  iterative  Unit  is  exceeded.  In  that 

{increment  the  failure  counter,  change  Dt  to  DtMin  or) 
(even  lower  if  IFAIL  >  1,  set  the  failure  counter,  flag) 
{the  failure  and  try  again  at  the  new  Dt } 


Ifail  *  Ifail  ♦  1  {increment  the  failure  counter,  change  Dt  to  Dth 

DtStar  *  .true.  (even  lower  if  IFAIL  >  1,  set  the  failure  counter, 

Call  DtChan  {the  failure  and  try  again  at  the  new  Dt } 

Dt  -  Dt/ 1  fail 

ltr?rk(0,0)  -  ItrTrk<0,0)  ♦  1 
Write  <*,  1025)  Dt ,  Ti .Tie 

Format  < '  Water  Failed:  Dc=',FS.3,'  Tim.e=' ,  Cl  2 . 5 ) 

If  (Ifail.LT.2l  Goto  20  {but  don' t  fail  more  then  twice: 

If  iDranMx . GT. 0)  THEN  {if  there  is  a  drain....) 

DO  50  Row  -  DranMn, DraaMx  {for  every  row  within  the  drain  zone...) 

If  (CpenDr  (Row)  .  AND.  Head  (3,  Ncols,  Row)  .  LT .  0 . 3D--CC)  THEN  {if  the  drain  is  open  but  the  head  is  negative- 

DtStar  *  .true.  {the  heaa  must  have  oscillated  from  ♦  to  tr.er. 

Dt  *  Dt /2 . 0D  +  CC  .'halve  the  Dt  and  try  again) 

If  (Nreset . LE. 5 . OR . MCD (Nreset , 5)  . EQ. 0)  Write  (•,  1 030 )  tallow  5  attempts  at  damping  the  oscillation- 

Time, Nreset, Dt 

Format ('  Negative  overshoot  at  drain  at  ',F10.2, 

'  Nreset*' , 12, *  Dt»',G12.5) 

Goto  10 

ELSE  If  ( .  Not .  Open.Dr  (Row) )  THEN  <’if  there  is  a  drain  and  it  is  closed...} 

KedAvr  *  0 . 5*  (Head  ( 1 ,  Ncols,  Row)  +-Head  (3,  Ncol s, Row)  )  ..check  to  see  if  it  s.nculd  open  by  examining  1 

If  (HedAvr .  GE.  0 . 0D*  00)  THEN  .'the  average  head  at  the  drain.  If  is  >  0.0  i 

If  (HedAvr. LE. 1 . OD* 00)  THEN 

OpenDr(Row)  ■  .true.  {open  the  drain  (permanently),  imposed  a  head 

Head  (3, Ncols, Row)  -  O.OD+OO 

Head  (3,  Ncol  s*l ,  Row)  =*  O.OD+OO  {0  at  the  drain  and  notify  the  user  of  tr.e  a  c' 

Writef*,*)  '  Drain  ' , Sow, '  opened  at  iter.  ',Irepet 
Write(12,*)  '  Drain  ',Row, '  opened  at  iter.  ' , I  repet 
ELSE  {it  overshot  (got  too  positive  in  a  single  Dt ) 

Write (*,*)  '  Dt  reduced  in  anticipation  of  drain  ',  {reduce  the  Dt  and  try  again* 

Row, *  opening' 


*’if  there  is  a  drain  and  it  is  closed...} 

•  check  to  see  if  it  s.nculd  open  by  examining  the: 

■  the  average  head  at  the  drain.  If  is  >  0.0  i  <  1.0- 

(open  the  drain  (permanently),  imposed  a  head  of: 

{0  at  the  drain  and  notify  the  user  of  tr.e  action) 


Dt  -  Dt/2 . 00+00 
If  (Nopen. LT. 10)  Goto  9 
ODendr(Row)  *  .true. 

END  IF 
ENDIF 
END  IF 
Continue 
ENDIF 

Do  55  Col  =  0,Ncols*l 
Do  55  Row  =  OfNrows+l 
Head (2, Row, Col)  = 

&  (Head  (1 ,  Row,  Col )  ♦  Head 

ENDIF 
Return 
END 

SUBROUTINE  WatRow(Irow) 


{but  only  9  times  or  fewer) 


{for  all  nodes,  insure  that  head  at  N *1/2  is- 
{the  average  of  N  and  N*l) 


Head (3, Row, Col) )/2.0D*00 


routine  solves  the  water  equation  row-wise  (across  columns  for  a  given  row) 


INCLUDE  'Twodswap.cnb' 

Logical  I.oSeep,  InDra.n 
DxSqDt  =  2. 0*Dx*Dx/Dt 
Do  40  Col  =  1, Ncols 

Cdiphj  -  AvrConl  Col  ,  I  row  ,  Col»-l,  I  row  ,2) 

Cdijph  *  AvrConl  Col  ,  IRow  ,  Col  , Irow+1,2) 

AlphaT  »  DXsqDt ‘Cslope { 

&  (Head  (1,  Col,  IRow)  «■  Head  (3,  Col ,  I  row)  )  /  2 . 0D*-CC  ) 

If  (Inseep ( I  row)  . AND . Col . EQ . 1 )  THEN 

Cdijmh  *  AvrConl  Col  , I  row-1,  Col  ,  I  row  ,2) 

CdSum  -  Cdiphj  ♦  Cdijmh  *  Cdijph 
SbDiag(l)  *  0 . 0D*00 
Diagon(l)  *  AlphaT  «■  CdSum 
SpDlag(l)  -  -Cdiphj 

Result(l)  *  (Cdijmh  ) • Head ( 1 , 1 , IRow-I )  ♦ 

&  (AlphaT  -  CdSum  ) “Head (1,1,  i row  )  ♦ 


i for  all  internal  nodes  -  : 
('conductivities  as  a  funct 


(slope  term  is  average  of 
(Flux-Seep  equation) 


tne  surrcjna; 

ad  at  r. -1/2  ■ 


(Cdijph 
(Cdiphj 
(Cdi jmh 
(Cdijph 


) *Head(l, 1, IRow-1)  ♦ 
) “Head (1,1,  I  row  )  ♦ 
) *Head(l, 1, IRow+1)  + 
)  ‘Head  (1,2,  I  row)  ♦ 
) *Head (3, I, IRow-l)  ♦ 
) *Head  (3, 1 , IRow+1)  + 


2 . 0*Dx*  (Gravfc* (Cdi jmh-Cdi jph)  ♦  SeepQ  ( I f Ixpt ) ) 
ELSE  If  ( .Not .Ref let. AND. I  row. EQ. 1)  THEN 

Cdimhj  -  AvrCon (Col -1 ,  I  row  ,  Col  ,  I  row  ,2) 

CdSum  -  Cdimhj  ♦  Cdiphj  *  Cdijph 
SbDiag(Col)  *  -Cdimhj 
Diagon(Col)  -  AlphaT  *  CdSum 
SpDiag (Col )  -  -Cdiphj 

Result  (Col)  *  (AlphaT  -  CdSum  )*H.ead(l,  Col  ,1)  ♦ 
(Cdijph  ) "Head (1 ,  Col  ,2)  * 

(Cdimhj  ) •HeacKl, Col-1,  1)  * 

(Cdiphj  )  •  Head  ( 1 ,  Col  *- 1 ,  l )  * 

(Cdijph  ) *Head ( 3,  Coi  ,2)  * 


{Flux-Surface  Equation} 


(Cdijph  ) "Head (1 ,  Col  ,2)  * 

(Cdimhj  > *Head(l, Col-1,  1 )  * 

(Cdiphj  )  •  Head  ( 1 ,  Col  *- 1 ,  l )  * 

(Cdijph  ) ‘Head ( 3,  Col  ,2)  ♦ 

2 . 0*Dx* (-GravFc*Cdi jph  +  SurfQ (Nzone (Col) , I f Ixpt ) ) 

ELSE 

Cdimhj  ■  AvrCon (Col-1 ,  I  row  ,  Col  ,  I  row  ,2) 

Cdijmh  ■  AvrCon (  Col  , I  row-1,  Col  ,  I  row  ,2) 

CdSum  -  Cdimhj  *  Cdiphj  *  Cdijmh  *■  Cdijph 
SbDiag(Col)  *  -Cdimhj 
SpDiag (Col)  -  -Cdiphj 
Diagon(Coi)  -  AlphaT  ♦  CdSum 

Result (Col)  ■  2 . 0*Gravr  c*DX*  tCdi  jm.n  -  Cdijpr)  ♦ 

(Cdijmh  )  *Head  ,CoI  ,  IRow-I ) 

(AlphaT  -  CdSum  ) ‘Head <1, Col,  I  raw  ) 


{normal  internal  equation* 
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(Cci :? 


) • Head ( I , C 
;  •  riead  (  i  ,  C 
) "Head  !  I , C 
> ■ Heaa  (3,  C 
) *Head 4 3 » C 


i  (Cci  jmn 

i  (Cdijph 

ENDIF 
Continue 

SpDiag(l)  -  SbDiag(l)  *  SpDiag(I) 

SbDiag  ( 1 )  =■  0.0D+C0 

If  ( InDran ( I  row)  . AND .CpenDr ( I  row))  THEN 


, . ro* i 
Row- 1 ) 
Row!  ) 


SbDiag (Ncol s)  * 

Diagon (Ncols) 

Result (Ncols) 

ELSE 

SbDiag (Ncolsi 
end  :  r 

SpDiag (Ncol a)  *  0. 

Call  TriDim (Ncols) 

Do  130  Col  -  1, Ncols 

SHead  (Col,  IRow)  -  Result  (Col) 


0 . 0C*  00 
1.0D-00 
O.OD+OO 

SbDiag  (Ncols)  *  SpDiag  (N'ccls) 
0D*00 


(special  case  for  an  open  drain  node) 


{solve  for  next  head  array; 

{for  all  nodes  in  tridiagonal  solutio 
{transfer  results  to  a  holding  array) 


SUBROUTINE  WatCoi  (Icol,  Dif.Max ) 


his  routine  performs  the  column  calculations  for  the  water  equation 


INCLUDE  * Twodswap . cmb' 
Logical  Ir.Seep 
DxSqDt  *  2. 0*Dx*Dx/Dt 
Do  40  Row  •  1, Nrows 
Cdijph  *  AvrCon(  Icol 


Icol  ,Row*l,2) 


Cdiph j  *  AvrCon (  Icol  , 

Row  , Icol*l,  Row  ,2) 

AlphaT  ■  DXsqDt *Calope ( 

£ 

(Head ( 1 , Icol 

, Row)  * 

Head (3, Icol 

, Row ) ) / 2 

If  ( Icol. EQ.l. AND. InSeep (Row) )  T 

HEN 

Cdijmh  *  AvrCon (  Icol 

, Row- I , 

Icoj.  ,  Row 

,  2) 

CdSum  *  Cdiph j  *  Cdi j 
SbDiag (Row)  *  -Cdijmh 

mh  ♦  Cdi 

jph 

Diagon (Row)  *  AlphaT 
SpDiag (Row)  -  -Cdijph 

*  CdSum 

Result (Row)  »  (AlphaT 

-  CdSum 

i  “Head  (1,1, 

Row  ) 

* 

s 

(Cdiph j 

)  -Head (1,2, 

Row  ) 

* 

£ 

(Cdi jmh 

) “Head  (1,1, 

Row-1) 

£ 

(Cdi jph 

) *Head (1, 1, 

Row*l ) 

* 

£ 

(Cdiph j 

) ‘Head (3,2, 

Row  ) 

♦ 

{for  all  internal  r.oces  ) 


(seep  flux  bouncaryl 


2. 0*Dx* (GravFc* (Cdi jmh  -  Cdijph)  *  See oQ<Z 
If  (.Not .Reflet .AND. Row. EQ.l )  THEN 


Cdimhj  = 

AvrCon (Icol 

-1,  Row 

,  Icol  ,  Row  ,2) 

CdSum  *  Cdimhj  +  Cdi 

phj  *  c 

di  jph 

SbDiag  (1) 

-  0 . CD* 00 

Diagon (1) 

-  AlphaT 

*  CdSum 

SpDiag  ( 1 ) 

=  -Cdijph 

Result  ( 1 ) 

-  (Cdimhj 

) 'Head ( 1 , ICol-1, 

1) 

♦ 

& 

(AlphaT 

-  CdSum 

) *  Head (1 ,  ICol  , 

1) 

♦ 

£ 

(Cdiphj 

) “Head (1 , ICol*l , 

1) 

♦ 

£ 

(Cdijph 

) ‘Head (1 ,  ICol  , 

2) 

* 

£ 

(Cdimhj 

)  ‘Head (3, ICol-1, 

1) 

* 

£ 

<Cd f  ph  j 

) ‘Head (3, ICol+1, 

1) 

* 

£ 

2. 0*Dx* 

(-GravFc*Cd 

-  jph  * 

SurfQ (Nzone ( Icol ) 

,  If 

-xpt) ; 

ELSE 

Cdimhj  ■ 

AvrCon (Icol 

- 1 ,  Row 

,  Icol  ,  Row  ,2) 

•surface  f*ux  ccuncary* 


(normal  internal  equation) 


Cdijmh  -  AvrCon (  Icol  , Row-1,  Icol 


CdSum  »  Cdimhj  *  Cdiph 


Cdi  jmh 


SbDiag (Row) 
Diagon (Row) 
SpDiag (Row) 
Result (Row) 


CdSum 


-Cdi jmh 
AlphaT 
-Cdijph 
(Cdi  jmh 

(AlphaT  -  CdSum 
(Cdi jph 
(Cdimhj 
(Cdiph j 
(Cd.  %h  j 
(Cdiph j 

2 


,  Row  , 

Idi jph 


THEN 

-  SbDiag  ( 1 ) 
*  Result ( 1 ) 

-  0 . 0D*00 


END  IF 
Continue 
If  (Reflet) 

SpDiag(l)  - 
Result ( 1 )  * 

SbDiag ( 1 )  - 
ENDIF 

Result (Nrows) 

SbDiag (Nrows) 

SpDiag (Nrows ) 

Call  TriDim (Nrows) 

Do  130  Row  »  1, Nrows 
If  (Head (3, Icol , Row) 
Error  -  0.00*00 
ELSE 

Error  -  100.0D+00 


)  ‘Head  (1,  ICol,  Row-1)  * 
)  •  Head  ( 1 ,  ICol ,  Row  )  «• 
) *  Head ( I , ICol , Row* 1 )  * 
) 'Head (1, ICol-1, Row)  * 
) 'Head (1, ICoi*l, Row)  * 
) *Head <3, ICol-1, Row)  * 
)  ‘Head  (3,  ICol*l,  Row)  *■ 
GravFc*DX* (Cdi jrah  -  Cdijph) 


SpDiag ( 1 ) 

Cravfc'Sbdiagd)  *Dx 


Result  (Nrows) 
SbDiag (Nrows ) 
0 . 0D*  0  0 


Gravf c* Sod lag (Nrows) *Dx 
SpDiag (Nrows) 


(if  the  surface  is  a  reflection  boundary) 
(then  amnipulate  the  coe f f i c i ent s \ 


(the  bottom  is  always  a  reflection  boundar 
(solve  for  r.exc  head  array  i  scan  for  r.ax 


,  EQ . 0 , 0D* 00 )  THEN 


'DABS (  (Result  (Row) -Head (3, Icol , Row) ) / 
£  Head (3, Icol , Row)  ) 

ENDIF 

If  (Error . GT . Di f Max)  DifMax  -  Error 
130  SHead ( Icol , Row)  -  Result (Row) 

Return 

END 

SUBROUTINE  Sol  It r (Redo, I te rat , CdMax) 


(store  results  in  a  holder  array) 


This  routine  coordinates  the  iterative  solution  of  the  solute  equation 


INCLUDE  ' Twodswap . cmb' 


267 


Logical  DcMore,  Ir.Seep,  ?eac 
If  iSoIFix)  THEN 
Iterat  =  2 

-0  10  3c w  «  0/Xrow3*'I 
Dc  10  Col  =  0,Scols*l 

Cc hang  =  Cdissv (2,  Col , Row) -Cai ssv { 1 , Col ,  Row) 

Cdissv  (1,  Col, Sow)  =  Cdissv  (2,  Col,  Row) 

10  CdissV(2, Col, Row)  -  Cdissv (2, Col , Row)  ♦  Cchang 

If  (.not. Redo)  Ifail  =  0 
20  lie rat  =  0 

25  Iterat  =  Iterat  +  1 

Co  30  Row  =  l,Nrows 
30  Call  Sol Row (Row) 

Co  35  Col  =  l,Scols 
CC  35  Row  *  1 , N rows 

35  Cdissv  (2, Col, Row)  =  Sdissv  (Col , Row) 

Call  FxBndS 
DifMax  -  O.OD+CO 
Co  40  Col  "*  l,N*cols 
40  Call  SolCcl (Col , Ci fMax) 

CdV.ax  *  0 . 0C-C0 
Co  45  Col  =  1 , Ncol 3 
DO  45  Row  ■  l,Mrows 

If  (Sdissv (Col, Row) .GT.CdXax)  CdMax  «  Sdissv(Col 
45  Cdissv (2, Col , Row)  =  Sdissv (Col , Row) 

Call  fx3ndS 

If  (CoMore  ( Iterat ,  Ci  f.y  ax  t  :  Goto  25 
If  ( Iterat . GE . 1 1  rLim  J  THEN 
Ifail  *  Ifail  ♦  1 
DtScar  »  .true. 

Call  DtChan 

ItrTric  (1, 0)  -  ItrTrk (1, 0)  ♦  1 

Ct  *  Ct/Ifaii 

Writ e(", 1020)  Dt,Time 

1020  FonaatC'  Solute  Failed  :  Ct*',F8.3,f  at  ' , G1 2 . 5 ) 

If  (I  fail. LT. 2)  THEN 
Redo  »  .true. 

ELSE 

Redo  »  . false. 

END  IF 
ELSE 

Reao  *=  .  false. 

ESDI* 

END  IF 

Return 

END 

SUBROUTINE  SolRow(Ircw) 


if  the  solute  is  frozen,  n.urnoe  r  of  iterat  i  ons^C  ■ 

iotherwise  determine  difference  from  r.-l  to  n,  j 
(extrapolate  from  n->r.+  l/2  *  for  all  nodes: 


{if  not  trying  to  reevoer  from  an  iterative  failure) 

(calculate  n* 1  estimates  row-wise,  then  column-wise1 
{updating  the  n*  I  array  from  the  holding  array  at} 
{each,  half-step  ana  reset  ing  the  boundaries! 


{scan  the  internal  nodes  for  tr.e  maximum  solute  /alue 
{which  will  be  cneexeo  against  tr.e  largest  expected 
{value  to  test  for  overruns) 

Row) 


•if  the  convergence  has  yet  to  occur,  try  again- 
; but  if  the  iterative  limit  was  reaches,  reset 
•the  Dt  4  reao  the  water  solution  from  this  time1 
(step  before  coming  bacx  to  this  routine  i  retrying- 
•the  solute) 


C  This  routine  solves  row-wise  (for  a  given  row,  across  ail  columns) 


INCLUDE  'Twodswap. emb' 

Logical  InSeep 

DxSqDt  =*  2. OD+00*Dx‘Dx/Dt 

Do  40  Col  -  l,Ncols 

Alpha  *  DxSqDt ‘Theta (Head (2, Col , I  row) ) * Retard (Col ,  I  row) 

If  (I nSeep  ( I  row )  . AND . Col . EQ . 1 )  THEN 
91  =  SeepQ(Iflxpt)  ‘Dx/2.  CD  +  00 

TDSum  -  TDlph j  (1 , 1  row)  ♦  TDi jmh { 1 , 1  row)  ♦  TDi jph (1 , I  row) 

&  *  2 . OD  +  CO ‘B1  -  Qioh j (1, 1  row)  *  Qi Jmh (1 , 1  row)  -  Qi jph ( 1 , I  row) 

SbDiaq  ( 1 )  -  0.0D  +  00 
Ciagcn(I)  =  Alpha  ♦  TDSum 

SpCiag  ( 1 )  *  -  TDiph  j  (1,1  row)  Qiph j ( 1 , 1  row) 

Result  ( 1 )  =* 

4  (TDi jmh(l , I  row) *Qi Jmh (1 , I  row) ) *CDissv ( 1 , 1 , IRow-I )  * 

i  (Alpha  -  TDSum  ) ‘Cdissv (1 , 1 ,  I  row  )  * 

i  (TDi Jph( 1 , I  row) -Qi Jph (1 , I  row) ) ‘Cdissv ( 1 ,  1 , IRow*l )  «• 

4  (TDiph j (I, I  row) -Qiph j (1 , I  row) ) ‘Cdissv ( 1 , 2,  IRow)* 

4  (TDi jmh ( 1 , I  row) *Qi jmh (1 , I  row) ) ‘CDissv (2, 1 , IRow-1 )  * 

4  (TDi jph ( 1 , I  row) -Qi jph (1 , I  row) ) *Cdissv(2, 1, IRow* 1 )  * 

4  4 . 0D+00*B1 ‘SeepC ( I flxpt) 

ELSE  If  (.not .Ref let. AND. I  row. EQ. 1)  THEN 
B3  *  SurfQ (Nzone (Col) , I f lxpt ) ‘Dx/2 . 0D-*00 

TDSum  -  TDimhj (Col, 1)  *  TDiph J (Col, 1)  ♦  TDi jph (Col , 1 )  * 

4  Qimh  j  (Col,  1)  -  Qiph  j  (Col ,  1)  *■  2.0D*C0‘B3  -  Qijph(Col,I) 

SbDiag (Col)  -  -  TDimhj (Col, 1 )  -  Qinhj(Col,I) 

Diagon(Col)  *  Alpha  ♦  TDSum 

SpDiag (Col)  -  -  TDiph J (Cel , 1 )  *  Qiphj(Col,I) 

Result (Col)  * 

4  (Alpha  -  TDSum  ) ‘Cdissv  (1,  Col  ,1)  * 

4  (TDi jph (Col, I ) -Qijph (CoL, I  1 ) ‘Cdissv (i.  Col  ,2)  * 

4  (TDimhj (Col , 1 ) ♦Qimh j (Col , 1 ) 1 ‘Cdissv (1 , Col -1 , 1 )  ♦ 

&  (TDiph j 'Col , 1 ) -Qiph j (Col , I )) ‘Cdissv ( 1 , Col *1 , 1 )  - 

4  (TDi jph(Col, 1) -Qijph (Col, I)) ‘Cdissv (2,  Col  ,2'  * 

&  4.CD+Q0*B3*SurfC(Nzone(Coi),Iflxpt) 

ELSE 

TDSum  *  TDlmh j  (Col , I  row)  ♦  TDi ph j (Col , I  row)  ♦ 

4  TDi  Jmh  (Col ,  I  row)  *  TDi  jph  (Col ,  I  row)  *■ 

&  Qimh j (Col, I  row)  -  C i ph j (Col , I  Row)  * 

4  Qi jmh (Col, I  row)  -  Q i jph (Col , I  row) 

SbDiag(Col)  "  -  TDimh j (Col , I  row »  -  Qimh j (Col , I  row) 

Diagon(Col)  *  Alpha  ♦  TDSum 

SpDiag(Col)  *  -  TDi  ph  j  (Col ,  I  row)  *■  Qiph  j  (Col ,  I  row) 

Result (Coll  “ 

&  (TDi Jmh (Col,  I  row) *Qi jmh (Col, I  row) ) ‘CDissv  (1 , Col, IRow-I )  * 

4  (Alpha  -  TDSum  ) *Cdi ssv ( 1 , Col ,  I  row  )  * 

4  (TDi jph (Col, I  row) -Qijph (Col, I  row)) ‘Cdissv (1, Col,  IRow*I >  * 

4  (TDlmh j (Col, I  row) *Qimhj (Col, I  row) ) ‘Cdissv (1 , Col-1 , IRcw)  * 

4  (TDiph  j  (Col ,  I  row) -Qiph  j- (Col ,  I  row)  ) ‘Cdissv  ( 1 ,  Col*  1 ,  I  Row)  * 

4  (TDi jmh (Col , I  row) *Qi jmh (Col, I  row) ) ‘CDi ssv (2, Col , I  Row-1 )  * 

4  (TDI jph (Col , I  row) -Qi jph (Col, I  row) ) ‘Cdissv (2, Col ,  1  Row* 1 ) 


■flux  seep  equation- 


■flux  surface  equation) 


{normal  internal  equation) 


C 
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If  (Result {Col ) . LT. -1 . CD-09 1  Result (Col )  =  1 . 2 
SpD  L&q  lit  -  ScDiagd)  *  SpDi  ag  c  1  > 

ScDiag(l)  =»  C.CD-CC 

SbDiag (Ncois)  *  SbDiag (Ncois)  ♦  SpDiag  (Ncoi s) 
SpDiag (Ncois)  -  O.OD-CO 
Call  TriDim (Ncois) 

Do  130  Col  »  1, Ncois 

If  (Result (Col )  .  LT. 0. 0)  Result(Col)  -  0.00+00 
Sdi  3sv  (Col ,  I  Row )  »  Result.  (Col) 

Return 

END 

S'J3 ROUTine  SolCol  (Icol,  OifMax) 


for  :."e 


tor a s  a-g 


•  solve  for  next  Cdissv  array) 

{put  results  into  a  holding  array) 


Zr.is  routine  solves  column- wi  se  (for  a  given  col  urn  down  all  the  rows) 


INCLUDE  '  Twodswap .  crab' 

Logical  InSeep 

DxSqDt  -  2. 0D+0O*Dx*Dx/Dt 

Do  40  Row  =  1, Nrows 

Alpha  -  DxSqDt “Theta (Head (2/ Icol# Row) ) -Retard ( Icol,  Row) 

If  (Icol.EQ. 1 .AND. Inseeo (Row))  THEN 
91  -  SeepQ(Iflxpt) “Dx/2. 0D+00 

TDSura  -  TDiphj  (1,  Row)  ♦  TDi jmh (1, Row)  +  TDi jph ( 1 , Row) 

&  ♦  2.0D+0G*B1  -  Qiphj (1, Row)  ♦  Qijmh(l,Row)  -  Qijph(l,Row) 

SbDiag(Row)  -  -TDi jmh (1 , Row)  -  Qi jrah ( 1 , Row) 

Diagon(Row)  »  Alpha  +  TDSura 

SpDiag(Row)  -  -TDi jph (I , Row)  +  Qijph(l,Row) 

Result (Row)  - 

4  (Alpha  -  TDSura  ) “Cdissv (1 , 1,  Row  )  * 

4  (TDiphj (Icol, Row) -Qiphj (Icol, Row) ) “Cdissv (1 , 2,  Row)* 

4  (TDi jmh (Icol , Row) +Qi jrah (Icol , Row) ) “Cdissv (1 , 1 , Row-1 )  ♦ 

4  (TDi jph  (Icol , Row) -Qi jph ( Icol, Row) ) “Cdissv ( 1 , 1 ,Row+ 1)  + 

4  (TDiphj (Icol , Row) -Qiphj (Icol, Row) ) “Cdissv (2, 2,  Row)* 

4  4. 00+00*91  “SeepCUflxpt) 

ELSE  If  {.not. Reflet. AND. Row. EQ.l)  THEN 
33  -  SurfQ(Nzone (ICoi) , Iflxpt) “Dx/2. 00+00 

TDSura  -  TDlrah j (iCol , 1 )  +  TDiphj (ICol, 1 )  +  TDi jph (ICol , 1 )  ♦ 


(flux  seep  equation) 


i  flux  surface  equation) 


Qirahj (ICol,  1)  -  Qiphj (ICoi, 1) 

SbDiag(Row)  -  0.0D+00 
Oiaqon(Row)  -  Alpha  +  TDSura 
SpDiag (Row)  ■  -TDi jph ( Icol, 1 )  * 
Result  (Row)  * 

(TDirahj (Icol, 1) -Qirahj (Icol, 
(Alpha  -  TDSura 


2. 0D+O0“B3  -  Qi jph(ICol, 1) 


Qi jph ( Icol, 1 ) 

[) ) “Cdissv (1 , Icol— 1 , 1) 
“Cdissv (1,  I Col  ,1) 


(TOiphj (Icol , l ) -Qiphj (Icol, 1 ) ) “Cdissv ( 1 , Icol* I, 1 ) 

,2) 


(TDi jph (Icol, I)-Qijph(Icol,l)) “Cdissv ( 1 ,  Icol 
4  (TDirahj (Icol , 1) +Qirahj(Icol, 1) ) “Cdissv (2, Icol-i, i)  + 

4  (TDiphj (Icol, l)-^iphj (Icol, 1) ) “Cdissv (2, rcol+I, I)  - 

4  4.0D+00“93“SurfC (Nzone ( I  Col ) ,  Iflxpt) 

ELSE 

TDSura  -  TDirahj (ICoL, Row)  +  TDiphj (ICoi , Row)  + 

4  TDi jmh ( ICol, Row)  +  TDi jph ( ICol, Row)  ♦ 

i  Qirahj (ICol, Row)  -  Qiphj ( ICoi, Row)  + 

4  Qi jmh (ICoi, Row)  -  Qi jph  (ICoi, Row) 

SbDiag (Row)  -  -TDi jmh ( Icol , Row)  -  Qi jmh ( Icol, Row) 
Diaqon(Row)  *  Alpha  ♦  TDSura 

SpDiag (Row)  ■  -TDi jph ( Icol , Row)  ♦  Qi jph (Icol, Row) 

Result (Row)  - 

&  (TDirahj ( Icol , Row) *Qimhj (Icol, Row) ) “Cdissv (1 ,  Icol-1 , Row) 

4  (Alpha  -  TDSura  ) “Cdissv (1,  ICoi  ,Row) 

4  (TDiphj (I  col, Row) -Qiphj (icol, Row) ) “Cdissv (1, I col +  1, Row) 

4  (TDi jmh (Icol, Row) +Qi jrah ( Icol, Row) ) “Cdissv (1, Icol, Row-1) 

4  (TDi jph (Icol , Row) -Qi jph (Icol , Row) ) “Cdissv ( 1 ,  Icol,  Row-1 ) 

4  (TDirahj ( Icol , Row) -Qimhj (Icol, Row) ) “Cdissv (2, Icol-1 ,Row) 

4  (TDiphj (Icol, Row) -Qiphj (Icol, Row) ) “Cdissv (2, Icoi+1 ,Row) 

END  IF 

0  If  (Result (Row) . LT.-l . 0D-08)  Result (Row)  -  O.OD+OO 
If  (Reflet)  THEN 

SpDiag(l)  ■  SpDiag(l)  +  SbDiag(l) 

SbDiag ( 1 )  -  0.0D+00 
ENDIF 

SbDiag (Nrows)  »  SbDiag (Nrows)  +  SpDiag (Nrows) 

SpDiag (Nrows)  ■  0.0D+00 
Call  TriDira (Nrows) 

Do  130  Row  »  1, Nrows 

If  (Result (Row) . LT. 0 . 0)  Result (Row)  -  0.0D+00 
I f  (DABS (Result (Row) -Cdissv (2, Icol, Row) ) . LE. I . 00-06 . OR . 

4  Cdissv (2, Icol , Row) . EQ. 0 . 0)  THEN 
Error  -  0.0D+00 
ELSE 

Error  -  1 00 . 0D+00“DABS ( 

4  (Result.  (Row )  -Cdi  ssv  ( 2 ,  Icol ,  Row)  )  /Cdissv  (2,  Icol,  Row)  ) 

ENDIF 

If  (Error . GT. Di fMax )  Di f Max  -  Error 
D  Sdissv < Icol , Row)  -  Result (Row) 

Return 

END 

SUBRoutlne  MBUpDt 


{normal  internal  equation) 


iif  the  surface  is  a  reflection  boundary. 


{solve  for  next  Cdissv  array-scan 
{and  place  results  into  the  hoidei 


for  max  error! 
array) 


C  This  routine  updates  the  mass  balance  accumulators 


INCLUDE  'Twodswap. crab' 

Logical  Abort 
Abort  -  . false . 

If  (SeepMx.GT.O)  THEN 

Do  1 0  Row  -  SeepMn,  SeepMx 
Watln  ■  Dx“Dt “SeepQ ( I f ixpt ) 

WatMax  *  Dx*Dx* (ThetaS-Theta (Head <2, 1 , Row)  )  ) 
T*  (WatMax. LT. Watln)  THEN 

Write (12,  2000)  *  Seep' , Wat  In, WatMax 


{if  there  is  a  seep  -  for  all  rows  within  the  seep- 

{determine  amount  of  water  entering! 

{check  for  exceeding  the  avaiiacle* 

{receptive  capacity  of  the  soil  at  the  seep! 

1 f  i  “  d'»s,  sound  a  warning! 


269 


--  Format  i*  Flux  sour,  c  ary  error  at  ' ,  A,  '  Water  er.cering=', 

i  312.5,'  Capacity  lef t= ' , 31 2 . 5, IX, A, 13 > 

Abort  *  .true. 

END  IF 

Flowln(O)  “  FLowIn(C)  *  Wat  In 
II  Flow  In  ( 1 )  -  Flowln(l)  ♦  Wat  In'SeepC  { I f lxpt ) 

END  IF 

IF  OranMx .31.0)  THEN 

Do  20  Sow  “  DranMn,  DranMx 
If  (OpenDr (Row) )  THEN 

WatOut *»-Dt  ‘Co.nSat*  (Head  (2,  Ncols* I ,  Sow)  -Head  (2,  Ncols,  Sew)  ) 
If  (WatOut . IT. 0 . 00+00)  THEN 
Write (*, 1010)  Time, WatOut , 

S  Head (2, Ncol s , Sow) , Head (2, Ncol 3+ 1 , Sow) 

II  Format  {'  Water  entering  at  drain  at  ',F 10.2,'  =  ' , 

4  312  5, '  H=' ,2312.5) 

FiowO*u(2)  *  FlcwCu  (2)  *■  WatOut 
WatOut  ■  0. 0D*00 
ENDIF 

FiowOu(C)  -  FlowOu(O)  ♦  WatOut 
FlcwCu (1)  -  FlowOu(l)  *  WatOut  * 
i  (Cdissv(2,  Ncols  ,Row)  ♦  Cdissvd,  Ncols  ,  Row)  ) /2 . 0D*-CC 

ENDIF 

20  Concinue 
ENDIF 

Do  25  Col  »  1 , Ncols 

Watln  ■  Dx*Dc*SurfQ (Szone (Col > , Iflxpt) 

WatMax  *  Dx*Dx" (ThetaS-Theta (Keaa (2, Col , 1 ) ) ) 

I f  (WatMax . LT . Wat  In)  THEN 

Write  (12, 2000)  'Surface' ,  Wat  In,  Xu. Max,  '  Co lumr.*' ,  v.oi 
Aoort  *  .true. 

ENDIF 

Fiowln(0)  -  Flowln(O)  ♦  Watln 

25  Flowln(l)  ■  Flowlr.(l)  *  Watln'SurfC  (Nzor.e  (Col)  ,  I  f  lxpt) 

If  (Abort)  THEN 

TrtStop  *  Time  -  Ot 
Call  Report  (. fal se . ) 

ENDIF 

Abort  *  .false. 

Return 


(accumulate  tr.e  amount  cf  water  entering) 

•and  the  solute  brought  along  with  it) 

(if  there  is  a  drain.. for  all  rows  withir.  it..j 
i calculate  outflowing  flux  and  check  for  reversal) 


•  accumulate  the  water  leaving  &  the  average 
(solute  carried  cut  witr.  i  t  ■ 


•across  the  surface,  calculate  water  entering’ 
(and  check  for  exceeding  availacie  capacity 

(accumulate  entering  water  and  solute* 

(this  code  will  aid  in  auto-temir.at  i  on  i 


SUBROUTINE  SetQTD 

C  This  routine  sets  the  flux  arrays  &  theta-Dispersior.  arrays  around  all  internal  nodes 


INCLUDE  'Twodswap. emb' 
logical  In.Seep 
Salter  *  Dx/2. 00*00 
Do  20  Ir  *  l,Nrows 
DO  20  Ic  =  1, Ncols 

IF  (Ic.EQ. 1 .AND. InSeep (Ir) )  THEN 
Qimhj(Ic,Ir)  »  SeepQ {Tflxpc J 
TDi-nhj  (Ic,  Ir)  -  0. 0D*00 
ELSE 

TDirahj  (Ic,  Ir)  -  ThetaD  (Qirah  j  (Ic,  I r) ,  Ic-1 , 1 r,  Ic,  I r) 
Qimhj(Ic,Ir)  -  Qimh j ( Ic, I r) "Qalter 
ENDIF 

TDiphj  (Ic,  I  r)  -  ThetaD  (Qiph *  ( Ic,  I  r)  ,  Ic,  I  r,  Ic*  I ,  I  r) 
Qiphj(Ic,Ir)  -  Qiph j (Ic, I r) *Qalter 
If  ( .Not .Reflet .AND. I r . EQ . 1 )  THEN 

Qi }mh { Ic, I r)  -  SurfQ  (Nzor.e  ( Ic)  ,  I  f  lxpt)  ‘Salter 
TDi <»h (Ic, Ir)  -  0.00*00 
ELSE 

TDi  jmh  (Ic,  I r)  »  ThetaD  (Qi  jmh  (Ic,  Ir)  ,  Ic,  I  r-1 ,  Ic,  I  r) 
wijmh(Ic,Ir)  -  Qi jmh (Ic, Ir) “Salter 
ENDIF 

TDi  jpn  (Ic,  I  r)  =  ThetaD <Qijph( I c, Ir) ,1c, Ir,Ic, Ir*l) 

20  Si;ph(Ic,rr)  =  Si jph  (Ic, Ir) 'Salter 
Return 
END 

Double  Precision  Function  ThetaD (Qf lux, Icol, Irow, Jcoi,  Jrow) 


(if  at  the  seep,  flux  in  is  the  seep  flux) 
(and  dispersion  is  0) 


(otherwise  calculate  the  flux  from  the  left) 


(the  flux  and  0-D  (Theta-Dispersion)  to  the  right ' 

(if  there  is  a  flux  surface  boundary) 

(then  the  flux  aoove  is  the  surface  flux  *  C-D=0i 

(else  calculate  the  flux  4  3-D  from  acove; 

(calculate  the  flux  &  C-D  from  below* 


C  This  routine  calculates  the  Theta-Disperison  product  between  any  pair  of  nodes 


INCLUDE  ' Twodswap . crab' 

HeadAv  •»  (Head  (2,  Icol ,  I  row)  *  Head  (2 ,  Jcol ,  Jrow)  ) /2 . 0 
Qflux  ■  FLuxVl (Icol, I  row, Jcol, Jrow) 

ThetaX  -  Theta (HeadAv) "DisprO 
FluxX  «  Disprl*DABS(Qflux) 

ThetaD  ■  ThetaX  *  FluxX 

If  (DABS  (DisprO)  . LE. 1 . OD-O 6 . AND . Di sp r 1 . LE. I . OD-06) 

&  ThetaD  -  0.CD*00 

Return 


(get  the  average  head 
(the  flux  between  the 

f 0D  -  0 (  Do  *  D 1 • Q / 0 ) 

(unless  all  0D  are  to 


END 

Logical  Function  OutSys ( It , Ic, I r) 


in  space  &  time) 
nodes  4  the  Theta) 

where  C*theta) 

be  zero) 


C  This  function  determines  If  a  given  point  in  time  and  space  is  outside  of  the  system  £  therefore  in  error 


INCLUDE  ' Twodswap . cnb' 

Logical  InSeep, InDran 

If  (It . LT. 1 .OR. It .GT.3.0R. IC. LT.0.CR. I C . GT . Ncols *  1 .OR.  ;.no  question  of  illegality  here) 

6  I r . LT. 0 .OR. I r . GT. Nrows* 1 )  THEN 
OutSys  -  . t rue . 

ELSE 

If  (Ic.EQ. 0)  THEN  (0  columns  are  okay  if  NOT  in  the  seep) 

If  (InSeep ( I r) )  THEN 
OutSys  •  .true. 

ELSE 

OutSys  -  .false. 

ENDIF 

E’.SF  Tf  *  . -nt  .  ?0  f  ’  ct  .  AND  .  T  r .  DC  .  ‘  i  THEN  iC  row  <  if  surface  «.s  a  rel-ection* 
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CutSys  *  .true. 
CutSys  =  .false. 


SUBROUTINE  GtHTab (Ftable) 

C - - - 

C  This  routine  reads  in  the  basic  layout  4  head  boundary  conditions 


INCLUDE  ' Twodsvap . crab' 

Logical  Error 

Character*  (• )  Ftable,  Ai ir.e*  1 

Integer  SeepNd, Drar.Nd 

Ca*l  CpnFil  Irtacle,  1 1 ,  'OLD' ,  Error  l 

If  {Error)  Cali  ENdPgm  ( ' Lnaole  to  open  MHD  file') 

Read  (15#  1000)  Aline 
1000  Format (A) 

Read{15,*)  Ncols, Nrows, Dx 

If  (Nrows . GT . MaxRow)  Call  EndPgm ('Too  many  rows  required') 

If  (Ncols  .GT.  MaxCol )  Call  Zr.dPgn  ( '  Too  many  columns  required') 
Read  (1 5,  *,  Err*20,  END*20)  {Nzone  (Col)  ,  Co  1*1#  Ncols) 

Do  5  I  -  1#  Ncols-l 

If  (Nzone (I ) .GT . Nzone ( !♦ I ) )  Call  ENdPgm (' Zones  out  of  order') 

5  If  (Nzone  (I )  .  LT.  1 )  Call  Er.dPgra  ( '  Zones  must  start  with  I') 

If  (Nzor.e  (Ncol  s)  .  Gt  ..MaxSet )  Call  ENdPgmi'Too  many  zones' ) 

Seep  Mn  =  0 
Seep.Mx  *  0 
DranMn  ■  0 
DrarJMx  *  0 
Do  10  Row  -  1# Nrows 

Read (15,*f£rr*20,  END»20)  SeepNd,  (Head  (3, Col, Row) f Col-l , Ncols) , 
4  Drar.Nd 

If  (SeepNd. NE. 1)  THEN 

If  (SeepMn. EQ . 0)  SeepMn  *  Row 
SeepMx  *  Row 
END  IF 

If  (DranNd.NE. 1)  THEN 

If  (DranMn. EQ . 0)  DranMn  *  Row 
DraruMx  -  Row 
ENDIF 

10  Continue 

If  (SeepMn.  LE.  1  .AND.  SeepMx. GT.C)  Call  End?gm('Seep  incorrect') 

Do  15  Row  *  1, Nrows 

Read(15  * ,  Err»20,  Er.d-20)  (Cdissv  (2#  Col,  Row) ,  Col*l  #  Ncols) 

Do  15  Col  -  1, Ncols 

15  If  (Cdissv(2# Col, Row) .GT.SolMax)  SolMax  *  Caissv (2, Col , Row) 

Close (15* 

Goto  25 

20  Call  EndPgm (' problem  with  matrix  table' j 
25  Return 
END 

SUBROUTINE  ColSet 


(file  comment  -  never  used  ir.  the  program; 


i surface  zone  description) 


(read  seep/head ...  head/d  rain  info) 
i  set  the  seep  if  indicated  ( 1  cr.c  -  0*yes )  ) 


{read  the  solute  concentrations) 


Z  This  routine  sets  the  column  according  to  the  input  controls 


INCLUDE  'Twodswap. cmb' 

Call  FxBndH  {impose  the  boundary  conditions  4  then  set) 

Call  FxBndS  (all  head  and  solute  arrays  identicallyt 

Do  20  Row  -  0, Nrows* 1 
Do  20  Col  *  0,  Ncols*! 

Cdissv (1 , Col, Row)  *  Cdi ssv (2, Col, Row) 

Do  20  I  type  =  1,2 

20  Head ( I  type, Col , Row)  =  Head (3, Col, Row) 

Return 

END 

SUBROUTINE  ChxFlx 


Z  This  routine  handles  setting  the  flux  4  velocity  if  they  should  cnange  during  the  run 


INCLUDE  ' Twodswap . cmb' 

IF  ( ( I f lxpt . LE. 0) . OR .  (if  this  is  the  first  time  this  routine  is  railed  or 

4  (Time . GE . Fluxtm  ( I f lxpt  * l )  .AND .  ( I f lxpt  *  1 )  . LE . NFLUX) )  THEN  (it  is  time  to  reset  the  flux  values...) 

Iflxpt  -  Iflxpt  ♦  1  (increment  the  flux  ptr  and  reset  the  flux  &  veloc.) 

WatFix  *  . false. 

Write  ( 12,  1 000)  'Imposed  Flux' , I f lxpt , Time 
1000  Format (/,'->', A, '  # ' , 1 2 , '  at  ' ,F1C . 1, ' sec. ' ) 

DtStar  -  .true. 

If  (SeepMx . GT. 0)  Write (12, 1010)  '  Seep' Imposed  Flux', 

4  SeepQ (Iflxpt) , SeepC ( I f lxpt  * 

Do  10  I  -  1 , Nzone (Ncols ) 

10  Write (12, 1010) ' Surface' Imposed  Flux', 

4  SurfQ(I,Iflxpt),SurfC (I, Iflxpt) 

1010  Format ( IX, A, *  :  * , A, ' ■' , 31 2 . 5 , '  Solute  cone . * ' , G1 2 . 5 ) 

If  (SolMax . LE. 0 . 0D*  00)  THEN 
SolFlx  “  .true. 

Write(*,*J  '  Solute  frozen' 

ELSE 

SolFlx  *  .false. 

Write(*,#)  '  Solute  activated' 

ENDIF 

LckDwn  -  0 
ENDIF 

Le  x  Own  ■  LclcDwn  ♦  i 

Return 

END 

SUBROUTINE  DtCHan 


Z  This  routine  resets  the  Dt 
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INCLUDE  '  Twcaswa p  .  c.t.c ' 

Logical  DtAltr 
If  (DtStep.GE. 1  -  0  »  THEN 
Dc  -  DtMax 
Return 
ENDIF 

If  (LckDwn.  LE.  10)  THEN  {keep  Dt  *  Dtmin  fo  the  1st  10  iterations  after} 

Dt  -  Dtmin  {a  flux  change  or  when  starting) 

ELSE 

DtNow  •  Dt  {otherwise  increment  it  until  Dt*  DtMax} 

If  (I f Ixpt .  GT . 0 . AND . I f lxpt . LT .Nf lux)  THEN  {but  try  to  step  down  to  Dtmin  if  a  change  is  coming} 

Nsteps  -  MINT (-1.0  ♦  (Fluxtm (I  f  lxpt  + 1 ) - (Time+Dt ) } / (Dt /2 . 0) ) 

If  (Nsteps. LT. 0)  Nsteps  -  0 
If  (Nsteps. LT. 20. AND. Nsteps. GT.0)  THEN 
Dt  -  Dt "Nsteps^DtStep  ♦  DtMir. 

DtDowp.  -  .true. 

END  IF 
ENDIF 

If  (DtStar. AND. LckDwn. GT. 10)  THEN  {either  true  initially  or  when  there  is  a  flux  change} 

DtStar  *  -  false. 

DtAltr  ■  .true.  tprevent  entering  here  until  next  flux  change,  reacy 

Dt  Down  -  .false. 

Dt  *  Dtmin  -  DtStep*DtMax  {Error  and  set  Dt  to  the  minimum  again) 

ENDIF 

IF  (DTALTR. OR. DtDown)  THEN 

If  ( .not . DtDown)  DT  ■  DT  *  DtStep*DtMax  (increment  Dt ) 

If  (Dt .  LE . Dt Mi n+Dt Step- DtMax )  Dt  -  DtMir.+DtStep'DtMax 

IF  (DT.GE.DTMax)  THEN  {up  to  the  maximum  limit  set  by  the  parameter  file* 

DT  -  DTMax 
DTALTR  -  .FALSE. 

ENDIF 

Write (*, 1010)  DtNow, DT, I REPET 

1010  FORMAT ( 1 2X Dt  changed  from  ',F10.3,'  to  ',F10.3, 

&  '  at  Iter. ' , 14) 

ENDIF 

ENDIF 

If  (Time+Dt . GT .TmStop)  Dt  *  TmStop  -  Time  [make  the  last  step  come  out  even  with  termination) 

Return 

END 

Logical  Function  DoMore (iterat, Di fMax)  (SUBRoutine  flag) 

C - r 

C  This  routine  tests  for  iteration  termination  conditions 


INCLUDE  'Twodswap. cmb' 

Logical  Recycl 

If  ( (iterat. EQ.l)  .CR. 

i  (iterat. LT.ItrLim. AND. DifMax. GT. TLevel) )  THEN 
Recycl  -  .true. 

ELSE 

Recycl  -  .false. 

ENDIF 

If  (.Not .Strict. AND. iterat. GT. 5. AND. Recycl)  THEN 
If  (DABS (Di fMax-OldErr) /OldErr. LE.Tlevel .AND. 

&  Di fMax. LE. OldErr)  Recycl  -  .false. 

ENDIF 

OldErr  -  01 fMax 
DoMore  -  Recycl 
Return 
END 

Double  Precision  Function  AvHead ( I  time, Icol , Irow) 


C  This  routine  returns  average  head  values 


INCLUDE  ' Twodswap . cmb' 

Logical  OutSys 

If  (OutSys (itime, Icol, Irow) )  THEN 
Write  (•,  1000)  I  time, Icol, I  row 
1000  Format!'  AvHead  Reference  Error:  It, Ic, ir-' , 313) 

AvHead  -  1 . 0D+30 
ELSE 

If  (Itime. NE. 2)  THEN 

AvHead  -  Head ( It ime, Icol , I  row) 

ELSE 

AvHead  -  (Head (1 , Icol , I  row)  +  Head (3, Icol, I  row)  )/2.0D+00 
ENDIF 
ENDIF 
Return 
END 

Double  Precision  Function  AvrCon ( Icol , I  row, Jcol , Jrow, I  time) 


C  This  routine  returns  average  ConDuctivity  between  two  nodes  at  twc.  times 


INCLUDE  ' Twodswap . cmb' 

Logical  InSeep, OutSys 

If  (OutSys (Itime, Icol, Irow) .OR. OutSys (Itime, Jcol, Jrow) )  THEN 
AvrCon  -  1.0D+30 

Write!*, 1000)  Icol, I  row, Jcol, Jrow, Itime 
1000  Format!'  AvrCon  Reference  Error:  Ic . . j r, it-' , 5 1 3) 

ELSE 

AvrHed  »  1 . 0D* 30 
If  ( I  row. EQ . 0)  THEN 

AvrHed  -  AvHead < I t ime, Icol, 1 ) 

ELSE  If  (InSeep  '  T  r  +  >  . AND . Icol . EG . C 5  THEN 
AvrHed  -  Avhead ( 1 1 ime, 1 , I  row) 

ELSE 

AvrHed  -  (AvHead ( 1 1 ime, Icol , I  row) ♦ AvHead ( 1 1 ime, Jcol , Jrow) ) / 
k  2.0D+00 

ENDIF 

AvrCon  -  ConDuc (AvrHed) 

ENDIF 

Return 
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END 

Double  Precision  Function  FLuxVi (Icol, I  row, Jcol , J  row ) 


C  This  routine  returns  the  flux  between  any  two  nodes 

C - 

INCLUDE  ' Twodswap . cmb' 

Logical  InSeep, Out Sys 

If  (IABS (Icol-Jcol) +IABS (Irow-Jrow) . NE.l) 

£  Call  EndPgm('  FluxVl;  Arguments  span  >  1  Dx') 

If  (OutSys (2, Icol, I  row)  . OR . OutSys (2, Jcol, Jrow) )  THEN 
FluxVx  -  1.00*30 

If  {InSeep (Irow) .AND. Irow.EQ. Jrow. AND. Icol .EQ. 0)  THEN 
FluxVx  *  SeepQ  (If ixpc ) 

ELSE  If  ( I  row. EQ.O. AND. Icol.EQ. Jcol)  THEN 
FluxVx  -  SurfQ (Nzone (Icol) , If Ixpt) 

ENDIF 

ELSE 

If  (Icol.EQ. Jcol)  THEN 
Gfactr  -  I . 0D*00*GravFc 
ELSE 

Gfactr  -  0.0D+GC 
ENDIF 

HeadAv  -  (Head (2, Icol, Irow)  *  Head (2 , Jcoi , Jrow) ) /2 . OD+OO 
FLuxVx  ■  -ConDuc (HeadAv) * 

£  ( (Head (2, Jcol, Jrow) -Head (2, Icol, I  row) ) /Dx -Gfactr) 

If  (DA3S (FluxVX) . LE. 1 . CE-10)  FluxVx  -  0.0D*C0 
ENDIF 

Flux Vi  »  FluxVx 

Return 

END 

SUBROUTine  Report (Normal ) 

C - C 

C  This  routine  updates  the  plot/output  file  to  be  used  by  data  presentation  Programs.  It  Writes  the  depth,  time, 

C  head,  water  content,  solute  concentration,  water  flux  £  solute  flux  In  a  F7 . 1 , F9 . 1 , 5G12 . 4  format. 

C - C 

INCLUDE  'Twodswap . cmb' 

Character  ALine* 132, DranCh (MaxRow) *1 , SeepCh (MaxRow) *1 
Logical  InSeep, InDran, Normal 

Data  Aline/'  ' /, Dranch/MaxRow* ' ♦  ' /,SeepCh/MaxRow*' ♦  ' / 

Call  Mbalck 
Hour  -  Time/3600 

Write (12,  1000) Rlabel, Time, Hour, DX, Dt, Nrows, Ncois, GravFc, I  repet  {summation  mass  balance  Report 
1000  Format (IX, 57{'-'),'<  Report  >' , 57 ('-'),//, 24X, A, //, 

&  11X, ' Time-' ,F10.2, '  sec . -' , F6 . 1 , '  hrs.;  Dx-',F5.2, 

£  ';  Dt* ' , F7 . 2, ' ;  Row-', 12/  Col-', 12,'  Gravity-' , F2. 0, 

&  '  Total  iterations3'  ,19) 

Write (12, 1005)  Flowln(0) ,FlowOu (0) ,Wact , Wpted, Wat err 

1005  Format ('  - [WATER) -  Total  Flow  In  *  ',G12.5, 

£  '  Flow  out  -  ' , G12 . 5, /, 14X, '  Sum  of  input  £  initial  water  * 

£  G12 . 5, '  Sum  of  stored  &  outFlow  -  ',G12.5, 

4  '  Error)- - { ' ,  G12. 5,  '  ) - ') 

Write  (12, 1015)  FlowOuU)  ,FlowInU) , Cact ,  Cpred,  SolErr 

1015  FORMAT { '  — [SOLUTE! ~  Total  Flow  out  -  ',G12.5,/, 

£  '  in-',G12.5,'  Sum  of  input  £  initial-' , G12 . 5, 

£  '  of  stored  *  out  flow-' , G12. 5, '  Error*- — -(',G12.5,'J ') 

Write ( 12, 1016) 

1016  Format  ('  ♦' ,  129  (1H-) , '  ♦' , /) 

Do  5  Row  -  1, Nrows 

SeepCh(Row)  » 

DranCh (Row)  -  '  I ' 

If  ( InSeep (Row) )  SeepCh (Row)  »  '>' 

5  If  (InDran (Row) )  DranCh(Row)  *  '>' 

Call  St rLen (Rlabel , Length) 

If  (Length. LE. 0)  Length  -  1 
If  (Ncois . GT . 10)  THEN 
Nstop  »  10 
ELSE 

Nstop  -  Ncois 
ENDIF 

If  ( .not . Normal .OR. RepHed (Rt ime) )  THEN 

Write(14,1020)  '{ Head } ' //Rlabel ( 1 : Length) , Ncois, Nrows, Dx, Time, 

£  WatErr 

1020  Format (A, / , 21 4 , 3G12 . 5, '  Rows, Columns, Dx, Current  time, Error') 

Do  15  Row  -  1, Nrows 

Write (1 4, 1025)  Row, SeepCh (Row) , DranCh (Row) , 

£  (Head  (3, Col, Row) , Col-1 , NStop) 

15  If  (Nstop. LT. Ncois)  Write(14, 1030) 

£  (Head (3, Col, Row) , Col-Nstop*l,Ncols> 

1025  Format (13, IX, A, IX, A, IX, 10G12 . 5) 

1030  Format (8X, 10G12. 5) 

ENDIF 

If  (RepThe  (Rtime) )  THEN 

Write  (14,1020)  ' (Theta)' //Rlabel (1 : Length) , Ncois, Nrows, Dx,Time, 

£  WatErr 

Do  25  Row  »  1, Nrows 

Write(14, 1025)  Row, SeepCh (Row) , DranCh (Row) , 

£  (Theta  (Head (3, Col, Row) ) , Col- 1 , Nstop) 

25  If  (Nstop. LT. Ncois)  Write ( 1 4 , 1030) 

£  (Theta (Head( 3, Col, Row) ) , Col -Nstop* 1 , Ncol s) 

ENDIF 

If  ( .not .Normal. OR. RepSol (Rtime) )  THEN 

Write  ( 1 4,  1 020)  '(Salt  Cone )' //Rlabel (1 : Lenoth) , Ncol s, Nrows . Dx . 
i  Time, SolErr 

Do  35  Row  -  1, Nrows 

Write (14. 1025)  Row, SeepCh (Row) , DranCh (Row) , 

£  (Cdissv (2, Col , Row) , Col-1 , Nstop) 

35  If  (Nstop. LT. Ncois)  Write (1 4, 1030) 

4  (Cdissv (2, Col , Row) ,Coi-Nstop*l, Ncois) 

ENDIF 

If  (RpConc (Rt ime) )  THEN 

Write (14, 1020)  '(Sait  Absl )' //Rlabel (1 : Length) , Ncol s, Nrows, Dx, 
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INCLUDE  'Tvcdswao.cmb' 

Dimension  A(MaxCol) ,  3ETA (MaxCol ) ,  Y (MaxCol ) 

A  (1 1  -  DIkOCN  (i) 

BETA (1 )  -  S?DIAG(1)/A(1) 

Y ( 1 )  »  RESULT (1) /A (1) 

DO  201  I  -  2, Nodes 
Xt (I)  -  Result (I) 

A ( I )  -  D I AGON ( I )  -  S3DI AG (I )  *  BETA(I-l) 

BETA(I)  -  SPDZAGII) /A(Z) 

201  Y ( I )  - (RESULT(I)-SBDIAG(I) *Y (1-1) ) /A(I) 

Result (Nodes)  -  Y (Nodes) 

DO  203  I  -  1 , Nodes-l 
J  *  Nodes  -I 

Result (J)  -  Y(J>  -  BETA ( J)  *  Result (  J*l) 

203  If  (Result (J) . GT . -1 . 0E-10 . AND. Resuit (J) .  LT.l .0E-10) 
&  Result (J)  -  0.0D+00 
RETURN 
END 

Subroutine  TotSysO 

C - 

C  sum  theta  &  Solute  throughout  the  system 


INCLUDE  'Twodswap . cmb' 

Wnow  -  0.0D+00 
Cnow  -  0.0D+00 
DxSq  *  Dx*Dx 
DO  10  Row  ■  l,Nrows 
Do  10  Col  •  1 , Ncols 

ThetaX  »  Theta (Head (3, Col, Row) ) 

Wnow  -  Wnow  ♦  ThetaX *DxSq 

10  Cnow  -  Cnow  ♦  DxSq*Cdissv (2, Col , Row) MThetaX+BulkDn*SlSrbC) 

RETURN 

END 

SUBROUTINE  Mbalck 

- - 

C  This  routine  performs  a  Mass  Balance  check  for  the  Dt  change  monitoring  procedure 

- - 

INCLUDE  'Twodswap. cmb ' 

Call  TotSys  () 

If  (Winit .LE. 0.0)  Winit  -  Wnow 

Wact  -  Winit  *  FlowIn(G)  (amount  added  to  &  in  column  to  begin  with 

Wpred  »  Wnow  +  FlowOu(O)  (amount  left  or  still  in  column  now 

WatErr  -  100.0D+00  * (Wpred-Wact ) /Wact  (percent  Error  between  the  two 

If  (Cinit . LE . 0 . 0 .AND. Irepet . LE. 0)  Cinit  -  Cnow 
Cact  »  Cinit  ♦  Flowln(l) 

Cpred  ■  Cnow  ♦  FLowOu(i) 

If  (Cact . LE. 0. 0)  THEN 
SolErr  -  0 . 0D+00 
ELSE 

SolErr  -  100.0D+00  * (Cpred-Cact ) /Cact  (percent  Error  between  the  two 

ENDIF 

Write (*, 1000)  Time, Waterr, SolErr 
1000  Format ( IX, 'At  ',F10.1,'  sec,  Error  %:  Water*' , G12 . 5, 

&  '  Solute*' , G12 . 5) 

RETURN 

END 

SUBROUTINE  Replt r 


C  This  routine  Reports  the  iterative  values 


INCLUDE  'Twodswap . cmb' 

Character  Aline*132 
Do  20  Itype  *  0,1 

Write  (12, 1000)  'Iteration  Trace Solute ( Itype) 
1000  Format {//, IX, 2A) 

I  stop  *  1 
Aline  -  '  ' 

Do  10  I  -  1 , 1 1  rLira 

If  ( It rTrk( Itype, Z) .GT. 0 . 0D+00)  THEN 
If  (I st op  ♦  20.GE.132)  THEN 
Write  (1 2, 1  005)  ALineU  :  Istop) 

1005  Format (IX, A) 

Istop  *  1 
ENDIF 

Istop  »  Istop  *■  20 
Istart  *  Istop  -  19 

Aline(Istart  :Istop)  -  '  (..  -  . %)  ' 

Write(Aline(Istart  +  2: I  start  +  3) , 1010)  I 
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-C 1 C  Format (12) 

Write  (Aline  ( Iscart-7  : I  at a  rt* 1 5)  ,  1015) 
i  100 . C* ItrTrK (Itype, I ) /I  repet 

1C1S  Format (F9. 5) 

ENDIF 

1C  Continue 

If  (Istop.GT.l)  Write (I2# 1005)  Aline (1 : Istop) 

20  If  ( I trTrk (I type, 0)  .GT.0)  Write  (12, 1020)  100. 0*lt rTrk (Itype, 0) / 

&  I  repet 

1020  Format ('  Iterative  Failure  Occurred  %»',G12.5) 

Return 

END 

Double  Precision  Function  Cslope (RlHead) 

C - - 

C  This  routine  uetermine_  .he  wa.er  capacity  of  a  soil  column  for  multiple  layers  using  I  of  2  theoretical  fits 
C  To  prevent  division  by  zero  Errors  in  certain  circumstances,  the  lowest  value 

C  for  water  capacity  that  is  allowed  is  set  within  a  menu  as  CapMin.  Heads  are  assumed  to  be  negative  values  and 
C  capacities  (slopes)  are  returned  as  positive  values  which  cannot  be  less  than  the  CapMin. 

C  note  -  the  equations  are  using  positive  heads  -  this  reverses  the  sign  of  the 
C  capacity  -  to  turn  it  to  a  positive  value,  a  minus  sign  has  been  dropped  as 
C  the  initial  operator  in  both  equations. 


INCLUDE  'Twodswap. cmb' 

Head*  -  DABS (RlHead) 

IF  (RlHead. GT. 0. 0)  HeadX  -  0.0D+00 

ExpM  -  (1 . 00+00-1 . OD+00/Table (3) )  {>set  up  exponential  Muelem' s  model,  then... 

RecpM  *  l.OD+OC/ExpM 
ReiWat  -  Tabled)  -  Table  (5) 

CapT  •  (1.0D+00+  (Table  (<»)  •HeadX)  •*  Table  (3))  ••(-ExpM)  (>to  the  head  at  that  node  ,  Then  calculate 

CapM  -  CapT** RecpM 

CtempV  -  Table  (4)  •  ExpM  •  ReiWat  *  CapM  •  {>finally  apply  the  derivative  of  the  head/theta 

fc  (1 . 0D*00-CapM) **ExpM  •  ( 1 . 0D+00-ExpM) * • (-1 . OD+OO )  t > relat i onship  in  the  Van  Genuchten' s  model 

If  (CtempV. LT. CapMin)  CtempV  *  Capmin 
Cslope  -  CtempV 
Return 
END 

Double  Precision  Function  ConDuc (RlHead) 

C - C 

C  This  routine  calculates  ConDuctivity  based  on  head. 

C - C 

INCLUDE  ' Twodswap . cmb' 

If  (RlHead. LT.0.0D+00)  THEN 
HeadX  -  DABS (RlHead) 

ELSE 

HeadX  -  O.OD+OO 
END  IF 

ExpM  =*  -i  .00*00*  (1 . 0Q+Q0  -  I .  QD+OC/Ta'ole  (3)  ) 

AlpTrm  -  Table  (4 )  *  HeadX 

AlpExp  -  1.00*00  ♦  AlpTrm  •*  Table(3) 

CondX  -  Table  (2)  *  AlpExp  *•  (ExpM/2 . 00*00)  * 

6  (1. 00*00-  AlpTrm** (Table (3) -1 . OD*00) *AlpExp* *ExpM) **2. 0D+00 

ConDuc  -  CondX 
Return 
END 

Double  Precision  Function  Theta (RlHead) 

c - c 

C  This  routine  calculates  theta  based  on  head. 

C - C 

INCLUDE  'Twodswap. cmb' 

If  (RlHead. LT. 0. 0D*00)  THEN 
HeadX  -  DABS (RlHead) 

ExpM  -  -1 . 0D+00*  (1 .0D*00  -  1 . OD  +  00/Tabie (3) ) 

AlpTrm  -  TableM)  *  HeadX 

AlpExp  -  1.00*00  *  AlpTrm  •*  Table(3> 

ThetaX  *  Table  (5)  *  (Tabled;  -  Table(5>)  •  AlpExp  **  ExpM 
If  (Rlabel (1 : 12) . EQ. ' LINEAR  THETA' )  THEN 
ThetaX  -  ThetaS* (1 . 0D*00-HeadX/ 100 . QD+00) 

If  (ThetaX. LT.0.08D+00)  ThetaX  -  0. 080*00 
ENDIF 
ELSE 

ThetaX  -  ThetaS 
ENDIF 

Theta  -  ThetaX 

Return 

END 

SUBROUTINE  GtWTab (Finput ) 


C  This  routine  reads  soil  characteristics  as: 

C  Van  Genuchten  Fitted  Function  in  Use:  (5  values)  Tsat, Ksat, N, Alpha, Est . Res .Wat 


INCLUDE  ' Twodswap . cmb' 

CHaracter  Finput *  1 5, Dummy* 1 32 
Logical  Error 

Call  OpnFil (Finput, 15, 'OLD' , Error) 

If  (Error)  Call  ENdPgm (' Unable  to  open  water  characteristics') 
Read (15, 1000, END-2C, Er r-23)  Dummy 
; 000  Format  (A) 

Read(15, *, END-20, Err-20)  MWaTab 
If  (MWaTab. EQ. 5)  THEN 

Read(15, 1000, END-20)  Dummy 

Read(15, *, END-20, Err-20)  (Table (I) ,1-1,5) 

Read (15, *, ESDm20, Err-20)  BulkDn, DisprO, Disprl 
15  CLose(lS) 

Write  (12,*)'  ---Using  Van  Genuchten"  s  Model-  —  ' 

Write  (12, 1010)  (Tabled) ,  1-1,5)  ,  BulkDn 
1010  Format (5X, 'Tsat-' ,G12. 5, '  Ksat-' , G1 2 . 5, '  N«',G12.5, 

6  '  Alpha-' ,G12. 5,  '  WCR-'  ,G12 . 5, '  BulkDr.- ' ,  G1 2 . 51 

ThetaS  -  Table(l) 

ConSat  -  Table (2) 

Return 
END  IF 
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Call  End? gm ('Water  Data:  Van  Den.  or  cubic  Function  Only'') 

23  Cali  End?gm (' Problem  with  water  characteristic  table:  '//Finout) 

END 

SUBROUTINE  BrkCut 

C  This  routine  appends  data  to  the  breakthrough  file. 

C - 

INCLUDE  'Twodswap. crab' 

Logical  InQtan 

If  (FBrkth. NE . '  ')  THEN  (if  the  BTC  file  is  open  ( — >  drain  exists) J 

Cout  *  O.OD+OO 
Nout  -  0 

DO  10  Row  -  DranMn, DranMx  {determine  concentration  at  the  drain! 

If  (CpenDr (Row) )  THEN 
Nout  »  Nout  ♦  1 

Cout  »  Cout  ♦ (Cdissv (2, Ncols, Row)  *  Cdissvd , Ncols, Row) ) / 

*  2.00*00 
ENDIF 

10  Continue 

If  (Nout.GT.0)  THEN 

Cout  -  Cout/Float (Nout) 

ELSE 

Cout  -  0.00*00 
ENDIF 

Write (13, 1400)  Time, FlowOu (0) , Ccut  {report  cumulative  water  &  current  avt  cone.) 

1400  Format (7G12. 5) 

I3rk  "  IBrk  *  1  {and  increment:  tne  breaktnru  counter! 

ENDIF 

Return 

END 

SUBROUTINE  BrkRep 

C - 

C  This  routine  reads  the  backup  Breakthrough  file  and  converts  the  data  into  a  plot  data  file 


INCLUDE  ' Twodswap . emb' 

DIMENSION  TMOUT (201 ) , 3rkTHR (0:1,201) 

Common/BrkBlk/Xout (201) , Tout (201) , Nobs 
Character  Label*8, Rest* 65 
If  (FBrkth. NE . '  ')  THEN 
Rewind  (13) 

IBrk  -  0 

10  IBrk  -  IBrk  ♦  1 

If  (IBrk. LE. 201)  THEN 

Read  ( 13,  •  ,  END=20)  TmOut(IBrk)  ,  (BrkThrd,  IBrk), 1-0,1) 
1000  Format (3G12. 5) 

Goto  10 
ENDIF 

20  IBrk  -  IBrk  -  I 
Rewind (13) 

Rest  «  Rlabel  (1 : 63) 

Do  30  Ispp  ■  0,1 
Do  25  I  -  l, IBrk 
Xout (I )  -  TmOut  ( I ) 

25  Yout (I)  •  BrkThr (Ispp, I) 

Call  TraDat 

Label  *  Solute  (Ispp)  (1 :  8) 

30  Call  Writit (Label, Rest) 

ENDFILE (13) 

Close (13) 

ENDIF 

Return 

END 

SUBROUTINE  TrmDat 


{read  the  data  until  EOF  is  encountered! 


{ reduce  the  data  to  non-repeating  Y  values! 
{and  record  it! 


C  This  routine  removes  redunanc  Y  axis  values 

C - - - 

INCLUDE  ' Twodswap. emb' 

Common/BrkBlk/Xout (201 ) ,  Yout (201 ) , Nobs 

Do  10  I  ■  2, IBrk-1  {if  the  value  is  the  same  as  the  adjacent  values! 

10  If  (DABS (Yout (I) -Yout  (Z-l) ). LE. 1 . 0E-06. AND.  { flag  the  X-value  for  eventual  deletion  of  the  oair! 

i  DABS  (Yout  (I)  -Yout  (I*l)).LE.1.0E-06)  Xout(I)  --1.0EO0 

Nobs  -  0 

Do  20  I  ■  l,IBrk  (scan  the  data,  dropping  flagged  pairs) 

If  (Xout (I) .GE. 0.0)  THEN 
Nobs  •  Nobs  ♦  1 
Xout  (Nobs)  -  Xout (I) 

Yout  (Nobs)  -  Yout (I) 

ENDIF 

20  Continue 
Return 
END 

SUBROUTINE  Writ it ( Label , Rest ) 

C - - - 

C  This  routine  records  a  trimed  data  set  to  the  breakthrough  file  in  a  standard  plot  format 

C - - - - - 

INCLUDE  'Twodswap . emb' 

Character  Label*8, Rest *65 
Common/BrkBlk/Xout (201 ) , Yout (201 ) ,  Nobs 

Write(13, 1000)  Label , Nobs, Rest  {Write  the  header,  then  the  data! 

1000  Format (A, 15, IX, A) 

Write (13, 1010)  (Xout (I) , Yout (I) , I«l,Nobs) 

1010  Format (2G12. 5) 

Return 

END 

DOUBLE  PRECISION  FUNCTION  Ret a rd ( I col , I  row) 

C - 

C  This  routine  calculates  the  Retardation  factor 

C - 

INCLUDE  'TwoDswap . emb' 

If  (ExpLin. LE. 0. 1 )  THEN 
Write(*,9000)  ExpLin 
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9::: 


Reset  t 


AvConc  *  (Cdisav  !I ,  lo; 
SolVal  -  AvCsr.c* •  (Exo: 
ELSE 

SolVa-  -1.02-00 


:n 

:  row) 


(2, 


col , I  row)  ) .  2 .  3D-CC 


ENDIF 

Retard  -  1.00*00  *  3uiicDn*SlSrbC*£xpLin“SolVal/ 
i  Theta (Head (2, Icoi, I  row) ) 


END 

Suo routine  F x3nc.H 


C  This  routine  seta  the  imaginary  noces  appropriately  for  n.eaas 


INCLUDE  ' Twodswap. cmb' 

Do  10  Sow  -  1, Nrowa 

Head ( 3 , 0, Row )  -  Head (3, 1, Sow) 

1C  Head (3, Ncola-1 , Sow)  -  Head  (3, Ncola, Row) 

If  [ SeepMx . 3T . 0)  THEN 

DO  15  Sow  -  SeepMn, SeepMx 
15  Head (3, 3 , Sow)  -  Head (3, I , Row) 

ENDIF 

I f  ( DranMx .37.0)  THEN 

Do  20  Sow  -  DranMn, DranMx 

If  iCper.Dr  (Sow) )  Head  (3,  Ncols  ,  Row)  -  C.CD-C- 
20  If  (Cpe.nDr  (Row)  )  Head (3, Ncola*!, Sow)  -  0. 02-00 

END  IF 

Do  25  Col  -  1, Ncola 
If  (Seflct)  THEN 

Head (3, Col, 0)  -  Head (3, Col, 1 )  -  Dx*GravFc 
ELSE 

Head (3, Col, 3)  *  Head ( 3, Col , 1 ) 

ENDIF 

25  Head (3, Col, Nrowa*!) -Head (3, Col, Nrowa)  -  Dx 'GravFc 
i 

Head(3,0,0)  -  Head(3,l,0) 

Head  (3 , Ncola* 1 , 0)  -  Head  (3, Ncols, 0) 

Head (3, 3, Nrowa-l)  -  Head (3, 1 , Nrowa- 1 ) 

Head  (3,  Ncola-1 ,  Nrowa*  1 )  *  Heacu,  Ncols.  Nrowa -l ) 
Seturr. 

END 

Subroutine  Fx3r.dS 


C  This  routine  sets  the  imaginary  noces  appropriately  for  solute 


INCLUDE  * Twodswap . cat  o' 

Do  10  Sow  -  l, S rows 

Cdisav  12,0, Sow)  -  Cdi sav (2, 1 , Sow) 

10  Cdiasv (2, Ncols- l , Sow)  -  Cdissv (2, Ncols, Sow) 

If  (SeepMx .37.0)  7 HEN 

Do  15  Sow  »  SeepMn, SeepMx 
Do  15  Jtime  -  1,2 

15  Cdissv (Jt ime, 0, Row)  -  SeeoC ( I f lxpt ) 

ENDIF 

Do  20  Col  -  1, Ncols 
If  (Seflct)  7HEN 

Cdissv (2, Col, 0)  -  Cdissv (2, Col, I ) 

ELSE 

Cdissv (2, Col, 0)  -  SurfC (Nzone iCoi I , I f lxpt i 
ENDIF 

20  Cdisav (2, Col, Nrowa* L )  -  Cdi asv  (2 , Col , Nrowa ) 
Cdiaav (2, 0, 0)  -  Cdiaav (2, 1 , 0 ) 

Cdisav (2 , Ncois-l , 0 )  «  Cdissv  (2, Ncols, 0) 

Cdi sav (2 . 0, Nrowa* 1 )  -  Cdissv (2, 1 , Nrowa* 1 ) 

Cdissv (2, Ncols*l , Nrowa* l )  -  Cdiaav (2, Ncola, Nrowa- 1) 

Setum 

END 

Logical  Function  InSeep (IRow) 


C  This  routine  determines  if  a  noae  is  in  the  seep  ar.a  if  tr.e  seep 


INCLUDE  ' Twodswap . cmb' 

InSeep  -  .false. 

I f  (SeepMx . GT . 0 . AND . I  row . GE . SeepMn . AND . I  row . LE . SeepMx ) 
i  InSeep  -  -true. 

HE TURN 
END 

Logical  Function  InDran (I  row) 


C  This  routine  determines  if  a  given  rwo  is  within  the  drain 


INCLUDE  '  Twodswap  .  c.tm' 

InDran  -  .false. 

I f  (DranMx . GT . 0 . AND . I  row . GE . DranMn . AND . I  row . LE . DranMx) 

&  InDran  -  .true. 

RETURN 
END 

SUBRoutine  StartR 


•for  ALL  rows,  reflect  the  inner  noae s  to  the  imaginary1' 
•nodes  regardless  of  seep  or  drain  designations 

•if  there  is  a  seep- 


•.if  there  is  a  drain  i  it's  ooen, 
ifor  all  columnsj 


• ana  the  bottom  is  always  reflect -ve¬ 
iled  the  corners  reflect  tr.e  aa;acent  .no cos 
{these  values  are  not  used  anywr.ere  in  tr.e  system- 


•for  ALL  rows,  reflect  t.-.e  inner  n.ocea 
{regardless  of  seep  designation- 
•the  drain  always  reflects  the  so-ute- 


•if  there  is  a  seep,  it  is  always  tre  imposed  cone 
{for  all  columns* 


iar.d  tr.e  bottom,  is  always  reflective- 
treflec*  the  corners  tncugn  trese  va.-es  are 
•  used \ 


is  active 


C  This  routine  starts  the  simulation  run  by  Initialization  4  reading  the  parameter  file 


INCLUDE  '  Twodswap . cmb' 

Character  Fparam*15 

Data  I  reoet  /Q/,  TmLast  /3 . 0/,  TmSpar./D .  0/ ,  Time/0.  02*00/ ,  ?time /  3/ , 
.  DtStar/ .  true  . /, Matrix/ .  fal se .  /  1  f  lxpt /  C/,  FI owi.n/ 3”  3  .  1  , 

i  Solute/ '  Mate  r' ,  ' Solute' /, Nst  able/ 3/ , FLowOu/ 3* 3.3-, 

,  So IFix/. false./, Reflet/. true./ 

write (*, 1000) 


( 


Format  I'SEr.ter  ?a  rar.ec  e r  F  i  1  e  S  a  m «» :  '  > 
Reaat*,lC12)  F  p  a  r  a  t. 

Format (A) 

Open  ( U  n  i  t  =  1 C ,  F i  1  e=Fpa ram ,  Status='  31.2 '  ) 
Call  GecPar 
If  (DranMx.GT.C)  THEN 

Do  15  Sow  ■  DranMn, DranMx 

If  (Head (1 , Ncols, Row) .GE.0.0)  THEN 
DO  10  Itime  •  1#3 

DO  10  Col  -  Nc©ls,Ncols+l 

Head ( It ime, Col, Row)  ■  0.03+00 
OpenCr(Row)  *  .  t  rje . 

ELSE 

Cper.Dr(Sow)  -  .false. 


(read  the  run  parameters- 


•the  heads  at  the  drain  to  C  (at 


times)  4) 


Return 

END 

SUBROUTINE  Get Par 


C  This  routine  reads  the  start  parameter  file 

C - 

INCLUDE  ' Twodswap . cmb' 

Logical  FMopen, Error,  AskQus, Abort 
CHARACTER  Ft  able*  1  5,  Lo2C.hr*  1 
Sol.Max  -  0 .  CD  +  CO 
Read (1C, I0C0)  Forint 
1000  Format (A) 

Call  OpnFil (Fprint, 12, 'SEW' , Error) 

Call  St rCap (Fprint) 

If  (Error)  Call  ENdPgm (' Unable  to  open  results  file') 
Write(12, 1005)  Char(12) 

1CC5  Format (A, 32X, ' Two-Dimensional  Transient  Flow  -  080988  - 
i  ' DR . S . A . 3L0CM' , / , 

&  '  +  ',  128  /,28X,  '  SIMULATION  PARAMETERS:  /) 

Write (12, 1000)  '  '//Fprint 
Call  GetStr (ABort , Rlabel) 

Call  GetStr (ABort , Ftable) 

Call  GtHTab (Ftable) 

If  (DranMx. GT.0)  THEN 

Fbrkth  -  Fprint  (1:  lextr.t  (Fprir.t) )  //'3RK' 

Call  CpnFil (Fbrkth, 13, 'NEW' , Error) 

If  (Error)  Cali  ENdPgm ('Unable  to  open  BTC  file') 

ELSE 

Fbrkth  -  '  ' 

END  IF 


i  read  the  file  name  for  tr.e  output  4  opens  tr.at  file- 


(Write  a  simulation  Report  heading) 


l now  read  4  ecno  the  various  parameters) 
(the  run  label) 

(the  head/solute  boundary  tacle  file-name1 
(now  read  that  information) 

(if  there  is  a  drain,  open  tr.e  37C  file1 


Call  GtReal (Abort , TmStop) 

Call  GtReal (Abort , CapMin) 

Call  GtReal (Abort , Grave c' 

Call  GtReal (Abort , SISrbC) 

ExpLin  -  1.0 

If  (DABS (SISrbC) .GT. 1 . OE-06)  Call  GtReal (Abort , ExpLin) 

Call  GtReal (Abort, Dt) 

DtMin  -  0.1 
DtMax  -  Dt 

Call  GetStr (ABort , Ftable) 

Call  GtWTab (Ftable) 

1010  Format (A, G12.S,A,G12.S) 

Cali  Getlnt (Abort, Nflux) 

If  (Nflux . GT . Maxset )  Call  EndPgm('Too  many  flux  sets') 

Do  20  I  -  Nflux 

Call  GtReal  (Abort ,FIuxTm d) ) 

Do  15  Iz  -  1, Nzone (Ncols) 

Call  GtReal (Abort, SurfQ (Iz,  I)  ) 

SurfQdz,  I)  -  SurfQdz,  D/3600.0 

Write ( 12 , 101 5 )  Iz,'  Surface  flux — >cm/sec  , SurfQ ( I z , I ) 

1015  Format('  2one  ' , 12, A, G12 . 5) 

If  (SurfQ  (I z, I )  . GT . ConSat )  Call  EndPgm (' Surf ace  FLux  >  Ksa . ' ) 
If  (Ncols*SurfQ(Iz, I) .GT. (DranMx-DranMn+1) *Consat)  THEN 
Write (12,*)  '  DANGER:  Input  will  exceed  drainage  ability' 
Write (*,*)  '  DANGER:  Input  will  exceed  drainage  ability' 
END  IF 

Call  GtRwal (Abort , Surf C ( 1 2, 1 )  ) 

Write (12, 1015)  Iz,'  Surface  salt  cone — >meq/cc  , SurfC (Iz, I ) 
If  (SurfC (I z, I ) . GT . Solmax)  SolMax  -  SurfC(Iz,I) 

If  (SurfQdz,  I)  .LT.  0.0)  THEN 
SurfC ( I z, I)  -  0.0D+O0 

Write (12, 1010)  '  Evaporation  requires  cone. to  be  0' 

ENDIF 

15  Continue 

If  (SeepMx.GT. 0)  THEN 

Call  GtReal (Abort , SeepQ < I ) ) 

SeepQ(I)  ■  SeepQ { I ) /3600 . 0 

If  ( SeepQ d) .GT. ConSat)  Call  EndPgm (' Seepage  FLux  >  Ksat') 
Write ( 1 2, 1010)  '  SeeDage  flux — >  cm/sec  *',SeepQ(I) 

If  (SeepQ (I ). GT. ConSat)  Call  EndPgm('Seep  FLux  >  Ksat') 

Call  GtReal  (Abort,  SeepCd)  ) 

Write ( 12, 101 0)  '  Solute  cone  at  seep — >meq/cc* ' , SeepC { I ) 

If  (SeepCd)  .GT. Solmax)  SolMax  -  SeepC(I) 

ENDIF 

20  Continue 

Call  Get Int (Abort , Nrepr) 

If  (Nrepr . GT. Max  rep)  Call  EndPgm ('Too  many  Reports  requested') 
FMopen  -  .false. 

TmRepr (0)  -  0.0 
RepHed(O)  -  .false. 

RepThe(O)  -  .false. 

Do  60  I  -  1, Nrepr 

Call  GtReal (Abort , TmRepr ( I ) ) 

Call  Get  Log (Abo  rt , RepHed { I ) ) 


•the  time  to  stop  the  t r.  mulation) 

(the  minimum  water  capacity  (>C) • 

>the  gravity  factor  ->  1  is  vertical) 

(the  sorption  coefficient  -  controls  retardation1 
I  nonlinearity  retardation  coefficient  default*! 1 
(if  retardation  is  wanted,  then  read  the  exponent: 
(maximum  Dt ) 


(soil/water  characteristics  file-name  4  reaa  it1 
(the  number  of  flux  changes  durir.q  the  run) 

(the  time  of  each  flux  cnange.- 

i read  the  surface  flux  rate  (cm/ hr)  4  convert  it1 


(check  for  exceeding  entrance  capacity) 
iwarn  if  exceeding  tr.e  drainage  capacitt 


(concentration  in  the  ' rain' 1 


(make  sure  that  conc**0  if  flux  is  negative) 


(if  there  is  a  seep  (horizontal  input  area)...) 
I  read  the  head  or  flux  at  that  point) 

(if  flux,  convert  to  cm/ sec  from  cm /hr) 

(and  check  for  exceeding  entrance  capacity) 


(concentration  at  the  seep) 


(number  of  reports  requested) 
(initialize  reporting  constraints) 


(the  time  of  the  requested  report  (secs)) 
(true  if  the  heads  are  to  be  reported) 
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Ca  - 1  GecLog  tAeort ,  RepTr.e  ( I  m 
Call  let  log  (Acorc.RepSo.,  (I ;  ) 

Ca.l  Get  log  I  Abort ,  RpCor.c  i I  1  i 

I f  (Rep He a ( 1 ) . CR . RepThe ( 1 ) . 03 . RepSol ( I ) .03. RpConc 1 1 )  ) 
4  FMCpen  "  .true. 

If  (FMopen)  THEN 

Fmatrx  «  Fprint ( 1 :  lextr.t  (Fprint))//'  2DM' 

Cali  CpnFil (Fmatrx, 1 4 , 'NEW' , Error) 

If  (Error)  Call  ENdPgra (' Unable  to  open  2DM  file') 

END  IF 

IF  (TMREPR(NREPR) . LT.TmStop)  THEN 
NREPR  -  NREP3  ♦  1 
TMREPR (NREPR)  -  TmstOp 
RepHed  (N’repr )  *  RepH.ed  (Nrepr-I ) 

RepThe (Nrepr)  *  RepThe  (Nrepr-i ) 

RepSol (Nreprl  *  RepSol (Nrepr-i) 

END  IF 

Call  Get  Log  (Abort ,  Feedbit) 

Call  Getlnt  (Abort,  Icheck) 

Call  GtReal (Abort , Tievei ) 

If  (Tievei . GT. 0. C)  THEN 
Strict  ■  .true. 

ELSE 

Strict  •  . false . 

Tievei  ■  -Tievei 


{true  if  t  net  a  is  to  re  report  eu 
true  if  t re  concentrations  are  to  re  reporteo1 
•  true  if  tne  acso.-te  amounts  are  to  oe  reporteo  ■ 
iif  anything  is  being  reported,  set  the  flag  to  T) 

jif  the  flag  is  T,  then  open  the  matrix  report  filei 


(insure  last  report  corresponds  to  termination) 


(boolean  controlling  feedback  comments  for  Debuging) 
(the  frequency  of  checking  the  abort  file! 

(twe  iterative  tolerance  level  (0.01  or  0.05  usually)- 


Gall  Getlnt (Aoort, ItrLimi 

If  l It  rLim. GT .  30)  Call  EndPgm.  (' Iterat  ive  Limit  <=3  0  oni\ ' ) 
Cali  GtRea. ( Abort , Dt Step) 

If  (Dtmin . £Q . DtMax . AND . Dt . EQ . DtMax )  DtStep  =1.0 
C 1  o  s  e  ( 1 0 ) 

Reflet  •  .true. 

DO  70  Col  ■  1 , Nzone (Ncols) 

I f  (DA3S (SurfQ (Nzone (Col ) , I f lxpt ) *SurfC (Nzone (Col) , Ifl ^pt) ) 
.GT.  1 .00-06. OR. RlabeUl :  6)  .NE.  '3EFLCT'  )  Reflet  -  .fa.se. 
Cali  ColSet 

Write ( 1 2 ,  10501  I check , T Level , It  rLim, DtStep, Lo2Chr (Reflet ) 
Format ('  External  abort  check  ■  ',112,/, 

'  Iterative  Tolerance  Limit  »  ',G12.5,'  (  %)',/, 

'  Iterative  Pass  Maximum  ■  ',112,/, 

'  Step  Amount  for  Dt  change  -  ',G12.5,'  (frac)',/ 

'  Top  boundary  a  reflection  •  ',A) 


(the  number  of  iterative  trys  before  giving  up • 
ithe  %  Dt  increment  used  to  step  Dt  from  DtKin  to  DtMax! 


(set  tne  head  4  solute  values  in  space  &  time! 


raraneter  :  i . e  for  tr.e  .wo-2:ner.sior.a.  Transient  Prcgra 

.l.Res  :  Filename  for  results  storage 
spill  (2cm/hc  0  ICO  solute)  with  gravity- 

file  with  initial  head/dx /nrows/ncol 
Time  to  terminate  simulation  (sec) 
Minimum  Water  Capacity 
Gravitational  Factor 
Solute  Sorption  Factor 


SurSpil 

Central 

Sursoil 

18CCC 

3.CE-C 

0.0 

1  ivoa  <u 


A-.x: .  .a ry 


Yes 

N'O 


Yes 

No 

Yes 

No 

Yes 

No 

Yes 

No 

Yes 

No 

No 

20 


Para met 


St 


lax 


Van  Ger.uchten  Model  Coefficients  for  Water 
Number  of  flux  changes  during  run 
Time  (sec)  of  flux  change 
Surface  flux  (cm /hr) 

Solute  concent  ration 
Surface  flux  (cm/hr) 

Solute  concentration 

Number  of  reports  to  be  generated 

Report  to  be  generated  (sec) 

Report  the  head  matrix 

Report  the  Theta  matrix 

Report  the  solute  Concentration  matrix 

Report  the  Absolute  solute  matrix 

Report  to  be  generated  (sec) 

Report  the  heaa  matrix 

Report  the  Theta  matrix 

Report  the  solute  Concentration  matrix 

Report  the  Absolute  solute  matrix 

Report  to  be  generated  (sec) 

Report  the  head  matrix 

Report  the  Theta  matrix 

Report  the  solute  Concentration  matrix 

Report  the  Absolute  solute  matrix 

Report  to  be  generated  (sec) 

Report  the  head  matrix 

Report  the  Theta  matrix 

Report  the  solute  Concentration  matrix 

Report  the  Absolute  solute  matrix 

Feedback  for  debugging 

abortion  check  periodicity 

Tolerance  Limit  in  percentage 

Number  of  passes  before  iterative  failure 

Increment  for  Dt  -  fractional 


Characteristics 


ter  file  for  the  Two-Dimensional  Transient  Program 


Cr.a  racter  i  st  i  cs  Pi  „o - 


Laxeland  -  Live  Ca<  Sand  (S-I24)  -  Upper  JO  cm  (Van  Genuschten 


OCO  1.0C00 

Theta  Sat  KSat  (cm/sec) 
D.3S20C000  0.343109 9  9E-02 
1.65  0.43E-07  1.0  : 

1.63  0.000278  1.0 


Numbers  of  rows  for  Function  VG. 

N  Est .  ALpha  Residual  Wat . 

4.1901102  0. 20310000E-01  0 . 85770003E-01 

Bulk  Density  (qm/cc) 

3ulk  Density  (gm/cc) 


nly!  ) 


Auxiliary  Parameter  file  for  the  Two-Dimensional  Transient  Program  - Two-Dimensional  Boundary  Condition  File - 
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0.  OOOCOE  +  CO 

0.  COOOOE  +  OO 
0. OOCOOE+OO 

0 . OOCOOE+OO 
0 . OOOOOE+OO 

0. OOOOOE+OO 

0 .OOOOOE+OC 

3  .  OOCCOE  +  CO 

0  .  OOOOCE-OO 

0. OOOOCE+OO 

0  .  CCCGCE  +  CO 

0  .  OOOOOE+OO 
3 . COOOOc+CO 

0 . OOCCOE+CO 

0 . OOCOCE+OO 

0  .OOOOCE+OO 

0 .  OCCOGE+  CC 

0 . OCOOCE+OO 

0 . OOCOOE+CO 

0  .  OOOOOE* CC 
0. OOOOOE+OO 

0. OOCOOE+OC 

3 . OOOOCE+OO 

0. COCCOE*  30 
0.3000CE+0C 

0. 50300E+00 

0 . OOOOOE+OO 

0 . OOOOOE+OO 
0. OCOOCE+OO 

C . OCOCOE+CC 

0 . OCCOOE+OC 

0  .OCOOCE  +  OO 
0.  COCCCE  +  CO 

0. OOOOOE+OO 
D. OOOOOE+CO 

0 . OOCOOE*  3  0 
0. COOOOE+CO 

0. OCOOCE+OO 

0 . 3C00CE+  00 

0. OOOOOE+OO 

0 . COOOCE*  CC 
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3  - COCOCE*  00 
0. OOOOCE+CO 
0. OOOOOE+OO 
0 .  OOCOCE+  00 
3 . OOCCOE+OC 
0 . OOCOCE+CO 
0. OOCOCE+CO 


o. c:ccoe+oo 

0 . CGOCOE+CO 
0. COOOOE+OO 
0  .  QOOOQS+OO 
0 . 00  00  OE*  0  C 
0 . OOCOCE+OO 
0 . CC00CE+  OC 
0. OOCCCE+CO 
0  .  COOOOE+OO 
0. OOOOCE+OO 
0. OCOCCE+OO 
3  .  3CCCOEOC 
0.  CCCCCE+CC 
0 . COOOOE+OO 
0 . COCQCE+OO 
0 .  OOOOOE+OO 
C. OOOCCE+CO 
0. OCOOCE+OO 
0  .  OOOOOE+OO 
0 . OCOCOE+  00 
0. OOCOCE+CO 
0  .  OOOOOE+OO 
O.OOOOOE+CO 
0 . OOCOOE+OO 
0. OOOOOE+OO 
C. OCOOOE+OO 
0.  COOOOE  +  CO 
0. COCOCE+CO 
3 . OOOOOE*  00 
0  .  OOOOOE* 00 
C . OOOOOE*  00 
0 . COGQOE+OO 
0. OCOOOE+OO 
0.  OOOOOE+OO 
0. OOOOOE+OO 
0. OOOOOE+OO 
0. OOOOOE+OO 
0. OOCOOE+OO 
0. OOOOOE+OO 
0. OOOOCE+CO 
0 . OOOOOE+OO 
0 . OOOOOE+OO 
0 . OOOOOE*  00 
0 . 000  OOE*  00 


: . oc  o  ooe*  cc 

0 . 0  30CCE*  OC 
3. COOCCE+OC 
0  .  OCOCOE*  CO 
0. OOOOOE*CO 
0. 0000CE*00 
0. OOO0OE*O0 
0. OCOOOE+OO 
0.  OCOOOE*00 
0 . OOOOOE*  00 

:. ccocoe+oc 

0. OCOCOE*CO 
O.CCOOOE*OC 
0. OOOCOE*OC 
0. OOOOOE+CO 
0 . OOOOOE+OO 
0.  CCCC0E*00 
0. 000C0E*00 
0. 0OO0CE*00 
0. 00000£*00 
0 .  OOOOOE*  00 
0. 00000E*00 
0. 0000CE*00 
0. OOCOCE*00 
0 . CO0C0E*0O 
0 . OOOOOE* OC 
0. 00CC0E*O0 
0 . 0  OOOOE*  00 
0 .  OOOOOE*  00 
0. OOOOOE*00 
0. OOOOOE*3C 
0 . C0OOOE*OO 

o . ooooce*oo 

0 . CC000E*00 
0. QOOO0E*OO 
0. OOOOOE+OO 
0. OOOOOE*  00 
0 . oooooe*oo 

0. OOOOOE*  00 

ooccce*oo 
0.  OCOOCE+OO 
0. 00000E*00 
0. OOOOOE*OC 
0. 0OOC0E*OO 
0. OOOOCE*00 
0. C0000E*00 
0. OOOOOE+C^ 
0. OOOOOE+OO 
0 . OOOOOE*  00 
0 . OOOOOE*  00 
0. 00000E*0O 
0. OOOOOE*00 
0 . OOOOOE*  00 
0. 00000E*00 
0. 0OOO0E*OO 
O.OOOOGE*00 


C  .  OCCOOE*CC 
0 . COOCOE+OO 
0. OOOOOE*CO 
0. OOOOOE+OO 
0. OOOOOE+OO 
0. OOOCOE+OO 
0 . OOOOOE+OO 
0. OOOOOE+OO 
O.OCOOCErCO 
C.  OOCCCE+CO 
0 . OOOOOE*  OC 
0. OOOCOE*30 
0. OOOOOE+OO 
0 . QOOOOE-OO 

0 . 0C000E*00 
0. OOOOOE+OO 
0. OOOCOE+OO 
3. OOOOOE+OO 
0. OOOOOE+OO 
0. OOOOOE+OC 
0  .OOOOOE+OO 
0. C0C0OE*O0 
0. COOOOE+OO 
O.COOOOE+OC 
O.OOOOOE+CO 
0. OOOOOE+OO 
0 . COOCOE+OO 
0 . OOOCOE+OO 
0.  OOOOOE+OO 
0  .  OOOOOE+OO 
0. OOOOOE+OO 
0. COOCOE+OO 
0. OOOOOE+OO 
0 . OOOOOE+OO 
0. OOOOOE+OO 
0.  OOOOOE+OO 
0  .  OOCOOE+  00 
0. OOOOOE+OO 
0. OCOOCE+OO 
0. COOOOE+OO 
0. COOOOE+OO 
0. OOOOOE+OO 
0 .  OOOOOE+CC 
0. OOOOOE+OO 
0. OOOOOE+OO 
0. OOOOOE+OO 
0. OOOOOE+OO 
0. OOOOOE+OO 
0. OOOOOE+OO 
0. OOOOOE+OO 
0. OOOOOE+OO 
0. OOOOOE+OO 
0. OOOOOE+OO 
0. OOOOOE+OO 


C. CCOCCE+OC 
C. OCCOCE+CC 
0. OOOOOE+CO 
0. OOOOOE+CC 
0. OOOOOE+OO 
0. OOOOOE+OO 
0. OOOOOE+OO 
0. OOOOCE+OO 
0- OOOOOE+OO 
C. 0CQ3CZ+CC 
0. OOOOOE+OC 
0. OCCOCE+OO 
0. COOOOE+CO 
0. OOOOOE+OO 
0. OOOOOE+OO 
0. OOOOCE+OO 
0. COOOOE+OO 
0 . OOOOOE*  00 
0. OOOCOE+OO 
0. OOOOOE+OO 
0. OOOOOE+OO 
0. OOCOCE+CO 
C. OOOOOE+OO 
0 .  0Q00GE+  00 
C . OOOOOE*  OC 
0 . OOOOOE*  OC 
0. OOOOOE+OC 
0. OCOOOE+OO 
0. OOOOOE+OO 
0. OOOOOE+OO 
0. OOOOOE+OO 
0. OOOCOE+OO 
0. OOOOOE+OO 
0. OOOOOE+OO 
0. OOOOOE+OO 
0. OOOOOE+OO 
0. OOOOOE+OO 
0. OOCOOE+OO 
0 . OCGCOE+  CO 
0. COOOOE+OO 
0. OOOOOE+OO 
0. OOOOOE+OO 
0. OOOOOE+OC 
0. OOOOOE+OO 
0. OOOOOE+OO 
0. OOOOOE+OO 
0. OOOOOE+OO 
0. OOOOOE+OO 
0. OOOOOE+OO 
0. OOOOOE+OO 
0. OOOOOE+OO 
0. OOOOOE+OO 
0. OOOOOE+OO 
0. OOOOOE+OO 
0. OOOOOE+OO 


o. c:ccce+cc 

0  .  CCCCCE-CC 
0. OCOOOE+OO 
0. OOCOOE+OO 
0.  OOOOOE  +  OO 
0. OOOOOE  +  OO 
0.  OOOOOE+OO 
0. OOOOOE+OO 
0 . OOOOOE+OO 
0. OOOOOE+OO 
0. OOOOOE+OO 
0. OOOOOE+OO 
0. OOCOOE+OO 
0. OOOOCE+OO 
0. OOOOOE+OO 
0. OOOOOE+OO 
0  .  OOOOOE  +  OO 
0. OOOOOE+OC 
0. OOOOOE+OC 
0. OOOOOE+OO 
0. OOCOOE  +  OO 
0. OOOOOE+OO 
0. OOOOOE+OO 
O.OOOOOE+CO 
0. COOOOE+OO 
0 . OOOOCE+CO 
0 . OOOOOE+OO 
0 . OOOOOE+OC 
0. OOOOOE+OO 
0. OOOOOE+OO 
0. OOOOOE+OO 
O.OOOOOE+CO 
0. OOOOOE  +  OO 
0. OOOOOE  +  OO 
0. OOOOOE+OO 
0. OOOOOE+OO 
0.  OOOOOE  +  OO 
0. OOOOOE+OO 
0 . OOOOOE+OO 
0. OOOOOE+OO 
0.  OOOOOE  +  OO 
0. OOOOOE+OO 
C. OOOOOE+OO 
0  .  OOOOCE  +  OO 
0. OOOOOE+OO 
0. OOOOOE+OO 
0. OOOOOE  +  OO 
0. OOOOOE+OO 
0. OOOOOE+OO 
0. OOOOOE+OO 
0. OOOOOE+OO 
O.OOOOOE+CO 
0. OOOOOE+OO 
0. OOOOOE+OO 
0. OOOOOE+OO 
0. OOOOOE+OO 
0. OOOOOE+OO 


C . 300CCE+  00 
0. OOOCOE  +  OO 

0. OOOOOE+OO 
0. OOOOOE+OO 

0. OOOOOE+OO 
0. OOOOCE  +  OO 

0  .  OCOCOE* CC 
0 . 3000CE+00 

0. OOOOOE+OO 
0. OOOOOE  +  OO 

0  .OOOOCE  +  CO 
y .  OOCOCE  +  00 

0. OOOOOE  +  OO 
0. OOOOOE+OO 

0 .  COCOOE+  CO 
0.  COOCOE-OO 

:  .oooooe+oo 

0. OOOOOE+OO 

0. OOOOOE+OO 
0. OCOOOE+OO 

0. OOOCOE  +  OO 
0 .  QCCCCE  +  OO 

0. OOOOOE+OO 
0. OOOOOE  +  OO 

O.OCCOOE+OO 
0. OOOOCE  +  OO 

0. OOCOOE  +  OO 
O.OCCOOE+OO 

0. OOOOCE  +  OO 
0.  OOOOOE  +  OO 

0. OOOOOE+OO 
0. OOOOOE+OO 

0. OOOOOE+OO 
0. OOOOOE+OO 

0. OOOCOE+OO 
0. OOOOOE  +  OO 


: .  3cccce*:o 

0. COCOOE+CC 
0. OOOOOE+OO 

0. OOOOOE+OO 
0. OOOOOE+OO 

0. OOCOOE+OO 
O.OOOOOE+CO 

0. OCOCCE+OO 
3. CCCCOE+OC 

0. OOOOOE+OO 
0. OOCOOE+OO 

0 . OOCOOE+OO 
C .OOOCOE+OO 

0. OOOOOE+OO 
0  .  OOOOOE  +  OO 

0  .  OCCCOE*CC 
0. 3000CE  +  0C 

0.  OOCCOE  +  OC 
0.  OOOOCE  +  OO 

0. OOOOOE+OO 
C. OOOOOE+CC 

0.  OOCCOE  +  OC 
0 . OCOCOE+QO 

0  .OOOCOE  +  OO 
0  .  OOOOOE  +  OO 

0. OOOOOE+OO 
0. OOCOOE+OC 

0. OOOOOE+OO 
0. COOOCE+CO 

0. OOCOOE  +  OO 
0. OOOOOE+OC 

0. OOOOOE+OO 
0 . OOOOOE+OO 

0. OOOOOE+OO 
0. OOOOOE+OO 

0. OOOOOE+OO 
0. OOOOOE+OO 


C . OOCCCE+OC 


0  .  OCCCCE+CO 
0  .  OOOOOE+OO 

0. OOOOOE+OO 
0. OOOOOE+OO 

0 .  OOOOOE  +  OO 
O.OOOOuE+OO 

C .OOOOOE4 00 
0  .  OOOOCE+CO 

O.OOOOOE+CO 
0  .  OOOOOE  +  OO 

C. OOOOOE*  00 
0 .OOOOOE+OC 

0. OOOOOE  +  OO 
0.  OCOOOE+OO 

0  .OOOOOE+OC 
0. OCOCCE+OO 

0. OOCOOE+OO 
0. OOOOOE+OO 

O.OOOOOE+CO 
0.  OOCOCE  +  OC 

0  .  OCCOOE  +  00 
0  ,  OCCOOE+OC 

0  .OOCOOE+OO 
O.OOCCOE+OO 

0  .OOCOOE  +  OO 
O.COOCCE+CC 

0.  OOOOOE  +  OO 
O.OOCCOE+CO 

0. OOCCOE+OC 
0.  OOOOOE +  00 

0. OOOOOE  +  OC 
0.  OCOOOE  +  OO 

0. OOOOOE+OO 
0. OOOOOE+OO 

O.OOOOOE+CO 
0. OOCOOE+OO 


0. CCOCCE+OC 

0. OOCOOE+OO 
0 . OCCOCE+CC 

0  .  OOOOOE* CO 
0 . OOOOOE*  CO 

0. OOOOOE+OO 
0. OOOOOE+OO 

0. OOOOOE+OO 
0. OOOOOE+OO 

C . COOOCE+CO 
0. CCOCCE+OO 

0. OOOOOE+OO 
0. OOOOOE+OO 

0  .  COOOCE+CO 
0 . OQOOUE+OC 

0.  OOOOOE  +  OO 
0  .OCCOOE  +  OC 

0  .  OOCCOE  +  OO 
0  .  OCCOOE  +  OC 

0 . OOCOOE+OC 
0 . OOOOOE+OO 

O.OOOOOE+CO 
0. OOOOOE+OO 

0. OOOOOE+OC 
0. COOOOE+OO 

0 . OOOOOE+OO 
0.  OOCOOE  +  OO 

C . OOOOCE+OO 
0 . OOOOOE*  00 

0 . 00  COCE+  00 
0. 0CCCCE*00 

0. OOOOOE+OO 
0 . COCOCE*  00 

0. OOOOOE+OO 
0. OOOOOE+OO 

0 . COOOOE+OO 
0. OOOOOE+OO 

0 . OOOOOE+OO 
0. OOOOOE+OO 


0 . COCOCE*  OC 

0. OOOCOE-OO 
0. OCOOCE+OO 

0 . OCCOOE+CC 
0. OOOOOE+OO 

0. OOOOOE+OO 
0. OOOOOE+OO 

0 . OOOOOE+OO 
0. OOOOOE+OO 

C . 3CCC0E+C0 
0 . OCOOCE+OO 

O.OOOOOE+CO 
0 . OOOOOE+OO 

o . ooooce+c: 

0 . OOCOOE+ C  C 

0. OOOOOE+OO 
0 . OOCOOE+CO 

O.OOCCOE+CO 
0 . CCOCCE+OC 

C . OOOOOE+OO 
0 . OOOOCE+OO 

0. OOOOOE+OO 
0 . OOCOOE+OC 

0. OCOOCE+OO 
0 . OCOCOE+  00 

0. OOOOOE+OO 
O.OOOOOE+CO 

0. OOOOCE+OO 
o . cococE*;: 

0 . OOOCCE+  00 
o . OCOCOE* ; : 

0. COCOOE+OO 
0. OOCOCE+CO 

0 . OOOOOE*CO 
O.OOOOOE+CO 

O.OOOOOE+CO 
0. OOOOOE+OO 

0 . OOOOOE*  00 
0. OOOOCE+OC 
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Utility  3uorcuiir.es  used  ir.  tr.e  preparation  and  simulation  programs 

LOGICAL  Function  AskQus (Query, Clear, Line)  \  SUBROUTINE) 


C  This  Function  returns  as  either  true  or  false  -  it  displays  the  query  centered  on  LINE  and  will  clear  the  screen  if  CLEAR 
C  is  true 


C 

Character* (* )  Query , Blank* 80, Answer* 1 0, Quest n* 1 32 
Logical  Clear, NuilOK 
Cata  Blank/'  '/ 

Cali  St  rler.  {Query,  Length) 

AskQus  *  .false. 

If  (Query  (Length : Length) . EQ . Char (3) )  THEN 
Quest n  »  'V //Query 
NuliOk  »  .true. 

If  (Query (Length-1 : Length-1 ). EQ .' Y' )  AskQus  -  -true. 
ELSE 

Queatn  -  ' \# //Query//'  (Y/N) :  ' 

NuilOk  ■  .false . 

END  IF 

3C  Call  Notice (Questn, Clear, Line) 

Read (*,  1000, Err*3C)  Answer 
1 CCC  Format (A) 

Call  ShfTxC (Answer) 

Call  St rLen (Answer, LenAns) 

If  ( .not . Nul 10k .AND. LenAns . L£ . C)  Goto  30 
If  (. Not. Nul 10k. OR. LenAns. GT.O)  THEN 

If  (Answer (1 : 1 ) . EQ . ' Yr .OR .Answer (1:1)  .EQ.'y')  THEN 
AskQus  »  .True. 

ELSE  If  (Answer (1:1) . EQ. ' N' .OR. Answer ( 1 : 1 ) . EQ. #  n* )  THEN 
AskQus  -  .false. 

ELSE 

Goto  30 
END  IF 
END  IF 
Return 
END 

Logical  Function  CharOX (Letter) 


C  This  routine  checks  the  characters  in  a  proposed  file  na.T.e 


CHaracter  Letter*! 

If  (  ( Letter . GE. 'A' . AND . Letter . LE . ' Z' ) . OR . 

6  (Letter. GE. '0' .AND. Letter. LE . ' 9 ' ) .OR. 

»  Letter. EQ. ' : r )  THEN 

CharOk  -  .true. 

ELSE 

CharOk  -  .false. 

END  IF 

Return 

END 

Subroutine  EchoLo (Bolean) 

C - 

C  This  routine  reads  and  echos  a  boolean  setting  from  the  parameter  file 

C - 

IMPLICIT  DOUBLE  PRECISION  <A-H,0-Z) 

Character  Aline'80, YesNo*3 
Logical  Bolean 
Read  (10,  1000)  YesNo,ALine 
1000  Format (12X, 2A) 

Write (12, 1000)  YesNo,ALine (1 : LenOrl (Aline) ) 

Bolean  -  St r2Lo (YesNo) 

Return 

END 

Subroutine  EchoRl (Avalue) 


C  This  routine  reads  and  echos  a  real  setting  from  the  parameter  file 

IMPLICIT  DOUBLE  PRECISION  (A-H,0-Z) 

Character  Aline*80 
Read (10, 1000)  Avalue, ALine 
1000  Format (G1 5. 7, A) 

Write (12, 1000)  Avalue, ALine (1 : LenOrl (Aline) ) 

Return 

END 

Subroutine  Echoln (lvalue) 

c - 

C  This  routine  reads  and  echos  an  integer  setting  from  the  parameter  file 

C - 

IMPLICIT  DOUBLE  PRECISION  (A-H.O-Z) 

Character  Aline*80 
Read  (1 0,  1000)  lvalue, ALine 
1000  Format (115, A) 

Wrlte(12, 1000)  lvalue, ALine (1 : LenOrl (ALine)) 

Return 

END 

Subroutine  EchoSt(Text) 


C  This  routine  reads  and  echos  a  string  setting  from  the  parameter  file 

c - 

IMPLICIT  DOUBLE  PRECISION  (A-H,0-Z) 

Character* {•)  Text , A1 ine*80 
LenTxt  ■  Len(Text) 

ReaddO,  1000)  Aline 
1  COO  Format (A) 

Write  (12,  1000)  Aline  (1  .-LenOrl  (Aline)  ) 

Text  »  Aline(l : LenTxt) 

Return 
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SUBROUTINE  3TFLNM  (QUERY ,  FNAME ) 


prompts  the  user  with  QUERY  to  supply  a  file  name  (FNAME) 


CHARACTER* (*)  Fname, Query, Fterap* 5C,Qtemp* 132 

Logical  AskQus 

Qterap  -  Query 

CALL  STRLEN (Qterap, LENGTH) 

10  Call  Notice {' NOTE :  There  is  no  validity  Chec<  on  File  Names', 

4  .true.,  6) 

11  CALL  Notice  (' WPlease  enter  filename  for  ' //Qterap (: LENGTH) // 

&  false 10) 

READ (*, 10 10, Err- 11)  FNAME 
101C  FORMAT (A) 

Fterap  -  Fname 

Call  St rLen (Fterap, LongFL) 

If  (LongFl. L£. 0)  Goto  11 
Call  ShfTxt (Fterap) 

Call  St rCap (Fterap) 

Call  St rLen (Ft emp, LongFl) 

If  ( .Not . AskQua (' \Filenarae  for  ' //Qterap  (: LENGTH) / /'  is  '// 
t  Fterap (: LONGFL)//'?  (Y/N) :  Y' //Char (8) ,  . false.  ,  14 ) )  Goto  11 
Fname  -  Fterap (1 : Len (Fname) ) 

RETURN 

END 

SUBROUT I  NX  r  n2Ch r ( I Va 1 ue , St  ri ng  J 


C  this  routine  converts  a  boolean  into  a  character  representation 

- - 

Character* (• )  String 
Length  -  Len (String) 

String  -  '  ' 

IR  -  IABS  (IValue) 

IF  (IR.EQ.0)  THEN 

String (Length: Length)  -  '0' 

ELSE 

Nplace  -  INT(ALogl0 (Float  (IR) ) ) 

If  ( (Length. LT. Nplace  .AND. lvalue. GT. 0) .CR. 

&  (Length. LT. Nplace*! .AND. lvalue. LT.0)  )  THEN 

Do  10  I  ■  1, Length 
10  String(I:I)  - 

ELSE 

Iptr  ■  Length 

20  String (Iptr: Iptr)  -  CHar (Ichar (' 0' ) ♦MOD (IR, 1C) ) 

IR  -  IR/10 
Iptr  •  Iptr  -  1 

If  (Iptr. GE. 1 .AND. IR.GT. 0)  Goto  20 
If  (IValue.  LT.  0)  St  ring  (Iptr:  Iptr)  • 

ENDIF 
END  IF 
Return 
END 

SUBRoutine  Int2Ch (String, lvalue, Length) 

C - 

C  This  routine  converts  an  integer  into  a  string  variable 


Character* (• )  String 
String  «*  '  ' 

If  (lvalue. Eq.0)  THEN 
String(Z:l)  *  '0' 

ELSE 

Length  *»  Len  (St  ring) 

Nchar  -  I NT (AloglO (Float ( IABS (lvalue) ) ) ♦  I ) 

If  (lvalue. LT. 0)  Nchar  •  Nchar  *  l 
If  (Nchar. GT. Length)  THEN 
Do  10  I  -  1, Length 
10  String  (1:1)  -  '*' 

ELSE 

Left  *  lvalue 
Do  20  I  -  1, Nchar 

String (Nchar+l-T : Nchar* 1 -I ) -Char  llchar (' 0' ) *Mod (Left,  10)  ) 
20  Left  -  Left/10 

If  (lvalue. LT.0)  String(l;l)  - 
ENDIF 
ENDIF 

Call  St rLen (String, Length) 

Return 

END 

Integer  Function  Lenorl (Text) 


Character* (* )  Text 
Call  St rLen (Text , Length) 

If  (Length. LE. 0)  Length  -  1 

LenOrl  -  Length 

Return 

END 

Real  Function  Lo2Rel (Boolen) 


Logical  Boolen 
If  (Boolen)  THEN 
Lo2Rel  -1.0 
ELSE 

Lo2Rel  -  2.0 
ENDIF 
Return 
END 
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INTEGER  Function  MenChc  (LenLir.,  Nitems,  Option,  Alter)  SUBROUTINE  Flag) 


C  This  Function  displays  a  static  choice  menu  and  returns  an  integer  value  Minchc<*vaiue<«MaxChc .  NOTE  that  Option  must  be  an 
C  8C-cnaracter  string. 


Character  Option (* ) *80, Blanks *30 
Logical  Alter 
Blanks  -  *  * 

MinChc  -  25 
MaxChc  »  0 

LinSkp  »  115  -  Nitems)  /  Nitems  leal. the  number  of  lines  to  be  skipped  between  items) 

Call  Page (' Dummy* ) 

Call  Vtab (3) 

If  (alter)  Write (*, 10C0) 

1000  Format (1 8X, ' Please  enter  the  number  of  your  selection') 

Call  Vtab(5)  (starting  at  line  5} 

Margin  -  (80-LenLin) /2 . 0 
If  (Margin. LE . 0)  Margin  -  1 
Do  20  Item  *  1, Nitems 

Call  StrLen(Option (Item) , Length) 

If  (Option (Item) (1:1) . EQ. ' <' )  THEN 

Nvalue  ■  Ichar (Opt ion  (I  tern)  (2 : 2) ) -Ichar ( * 0' ) 

If  (Option (Item) (2:2) .EQ. '  ')  Nvalue  -  0 
If  (Option (Item)  (3:3) .NE.#>')  Nvalue  -  Nvalue*10  + 
t  Ichar (Option (Item) (3 : 3) ) -Ichar (' O' ) 

If  (Nvalue. LT. MinChc)  MinChc  -  Nvalue 
If  (Nvalue . GT. MaxChc)  MaxChc  •  Nvalue 
ENDIF 

If  ( Length. GT.0)  THEN 

If  (Option (Item)  (1:1) . EQ. '  <' )  THEN 
Lstop  -  Margin 
ELSE 

Lstop  -  NINT (  (80-Length) /2.0  ) 

ENDIF 

Write (*, 101 0)  Blanks (1 : Lstop) , Option (Item) (1: Length) 

1010  Format (2A) 

ELSE 

Write (• , 1010)  '  ' 

ENDIF 

If  (LinSkp. GT.O)  THEN 
Do  19  I  -  1, LinSkp 

19  Write  (*, 1010)  '  ' 

ENDIF 

20  Continue 

If  (Minchc. LE. MaxChc. AND. MinChc. GE.0. AND. Alter)  THEN 
MenChc  «  MnuChc (MinChc, MaxChc) 

ELSE 

MenChc  -  0 
ENDIF 
Return 
END 
C 

SUBROUTINE  MenFil (LenQry, NQuery, Query, Answer, St  ring, Alter) 

C  This  subroutine  displays  an  interactive  (user  supplied  values  and/or  agree  to  displayed  default  value)  menu.  It  first 
C  displays  the  menu  as  provided  by  the  calling  routine  (see  PFOCQU  comments  for  proper  encoding  pattern)  and  then  allows  the 
C  user  to  alter  items  (with  the  exception  of  comment  lines  and  item  numbers  that  do  no  exist)  within  the  range  of  items 
C  numbers  between  1  and  MaxVal.  When  '0'  is  chosen,  the  routine  returns  control  to  the  calling  routine. 

C  Note  that  Query  and  String  must  both  be  80  character  strings.  The  variable  LENQRY  controls  the  number  of  characters  to  be 
C  printed  (8: LenQry)  except  for  Queries  with  the  'S'  in  Column  5.  In  those  cases,  the  expected  length  of  STRING  must  be  placed 
C  in  ANSWER,  i.e.  if  the  3rd  Query  asked  for  an  8-char,  answer,  then  ANSWER (3)  -  8.  The  routine  will  determine  whether  the 
C  minimum  query  or  LenQry  characters  will  be  displaced  by  checking  the  length  of  the  query,  LenQry  and  the  expected  STRING 
C  length.  The  maximum  possible  menu  choice  is  determined  from  the  query  arguments  by  the  subroutine. 


C 

Dimension  Answer (*) 

Character  Query(*) *80, String(') *80 
Integer  Choice 
Logical  Alter 
MaxVal  -  0 
1  Call  Page ('DUmray' ) 

Call  Vtab (3) 

If  (Alter)  Write (*, 1000) '  Please  enter...  ' 

Do  10  I  »  l,Nquery 

10  Call  ProcQu (LenQry , Query  (I) , St  ring (I ) , ANswer (I ) , MaxVal) 

Call  Vtab (3) 

If  (Alter)  Write (*, 1000) '  <  0>  Accept  Answers  as  displayed  ' 

1000  Format (A) 

If  (Alter)  THEN 

20  Choice  •  MnuChc (0, MaxVal) 

IF  (Choice. GT. 0)  THEN 
I  -  0 

C  - REPEAT - 

30  I  -  I  ♦  1 

Item-  (Ichar (Query (I) (3:3) ) -Ichar(' O' ) ) *10  * 
t  (Ichar  (Query  (I )  (4:4))  -Ichar ('  0' )  )  *  1 

C  - UNTIL - 

If  ( Item. NE. Choice. AND. I .LT.Nquery)  Goto  30 
If  ( I tern. EQ. Choice)  THEN 
Query  (I)  (6:6)  -  '  V 

Call  ProcQu ( LenQ ry , Que ry ( I ) , St  ring ( I ) , Answer (I ) , MaxVal) 

ENDIF 
Goto  20 
ENDIF 
ENDIF 
Return 
END 

INTEGER  Function  MnuChc (Minmum, Maxmum)  {  SUBROUTINE  flag) 

- - 

C  This  Function  displays  the  selection  prompt  6  returns  the  choice 

C - 
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Cha  rac:er  Va iMin*  2 ,  Va  1  Max •  2 ,  Q ues: r. ■  1 3 2 
Integer  Choice 

Call  Int2Ch (VaiMin,Min»um,  LenMin) 

Call  Int2Ch  (ValMax,  Maxisum,  LenMax) 

Questn  ■  '\Your  Selection  (' //VaiMin (1 : LenMin) //'  to  '// 
i  ValMaxd  :  LenMax)  /,*)  :  ' 

10  Call  Not ice (Questn* . false. , 22) 

Call  Value (Respon, IER) 

Choice  -  NINT (Respon) 

If  (Choice. LT.Minmum. OR. CHoice.GT.Maxmura. OR. IER. NE. 0)  Goto  10 

MnuChc  »  Choice 

RETURN 

END 

SUBROUTINE  Notice (Messag, Clea r,  Line) 


C  This  subroutine  displays  the  MESSAge  centered  on  LINE  and  will  clear  the  screen  if  CLEAR  is  true. 

C - 

Character* (* )  Messag 
Character*80  Blan< 

Logical  Clear, Center 
Data  Blank/'  ' / 

Center  ■  .true. 

If  (Clear)  Call  Page (' Dummy ' > 

Call  St rlen (Messag, Length) 

If  (Length. LE. 0)  Length  -  1 

If  (Messag (Length: Length) . EQ. )  Length  =  Length  ♦  1 
If  (Messag ( 1 : ! ) . EQ . ' \ ' )  THEN 
If  (Messag (2 :2) . EQ. ' V )  THEN 
Istart  -  3 
Center  -  .false . 

ELSE 

Istart  -  2 
ENDIF 
ELSE 

Istart  *  1 
ENDIF 

LinAct  “  Line 
If  (Length. GT. 75)  THEN 
Do  10  I  -  1,75 

If  (Messag (76-1:76-1) . EQ. '  ')  Goto  20 
10  Continue 

I  -  75 

20  Ibreak  -  I 

Margin  =  (80  -  Ibreak)  /  2 
If  (Margin. LE. 0)  Margin  *  1 
Call  Vtab(Line) 

Write (*, 1000)  Blank  (1 : Margin) , Messag (Istart : Ibreak) 

C  1000  Format (2A, \ )  - backslash - 

1000  Format (' S', 2A) 

Write(*, 1010) 

1010  Format  (/) 

LinAct  •  Line  +  1 
Istart  -  Ibreak+1 
ENDIF 

Margin  *  (00  -  Length* l-Istart )  /  2 

If  ( .Not .Center. OR. Margin. LE. 0)  Margin  -  l 

Call  Vtab (LinAct) 

Write (*, 1000)  Blank (1 : Margin) , Messag (Istart : Length) 

If  (Messag (1:1) . NE . ' \' )  Write (*, 1010) 

Return 

END 

SUBROUTINE  PAGE (PGMNAM) 

C - 

C  clears  the  screen  and  displays  a  top  title  centered  *  in  inverse  Video 

C 

CHARACTER* (* )  PGMNAM 

CHARACTER  TOP LAB* 80 , BLANKS* 80 , Home* 7, Invron*4, InVrOfM 
data  Blanks/'  '/,INIT/0/ 

IF  (PGMNAM(:5) . EQ . 'RESET')  THEN 
INIT  -  0 
RETURN 
ENDIF 

IF  (INIT.EQ.0)  THEN 

HOME  -  CHAR (27) //' (2J' //CHAR (27) //' [H' 

INVRON  -  CHAR (27) //' [7m' 

INVROF  -  CHAR (27) //' [Ora' 

INIT  -  1 

Call  St rBeg (PgraNam, Istart) 

Call  StrLen (PgmNam, Istop) 

TOP LAB  -  '  ' //PGMNAM (Istart : IStop) //'  ' 

LAST  -  Istop  -  Istart  ♦  3 
LEFMAR  -  I  NT (  (80-  Last  >/2) 

RETURN 

ENDIF 

Write (*, 1000)  HOME, BLANKS (: LEFMAR) , INVRON, TOPLAB ( : LAST) , INVROF 
1000  FORMAT (IX, 5A) 

RETURN 

END 

SUBROUTINE  ProcQu (LenQry, Query, String, Answer, MaxVal ) 

C  This  subroutine  processes  a  query.  Information  on  where  to  display  the  query,  the  type  of  answer  needed  and  the  item  number 
C  are  encoded  as:  Char.l  *  2  :  2-digit  right- just i fled  number  which  determines  which  line  on  the  screen  is  used  (01-24) 

C  3*4:  2-digit  right- just i fied  number  which  will  be  used  as  an  item  number  in  the  display 

C  5  :  Variable  Type  :  L, I,R,S,C  ->  logical , integer, reai, character  string,  or  comment 

C  6  :  L,C,R,D, ?  ->  Comment  left, right  or  centered, default  (value  set)  or  need  value  from  the  user 

C - - - - - 

C 

Character* (*)  Query, String 
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Character  YesNo(2)  *3,  31ar.k*80 

Data  YesNo/' Yes' , '  Mo'/, Blank/'  '/ 

line  -  (I char (Query (1 : 1 ))-! char (' 0' ))* 10  + 

*  (Ichar  (Query  12 : 2) )  -Icr.ar  I '  O' ) )  *  1 

Item  •  (Icnar (Query  (3 : 3) ) -Ichar (' 0' ) ) • 10  ♦ 
i  (Ichar  (Query  (4  :  4) )  -Ichar  ('  0' ))  *  l 

If  { Item . GT. MaxVal)  MaxVal  -  Item 
10  Call  Vtab(Line) 

IP  (Query  (5  :  S)  .EQ.  'S')  THEN 
Call  Sc rLen (Query, Length) 

If  (Answer+LenQry-S . L£ . 80)  Length  *  LenQry 
IF  (Query (6:6) .EQ.'?')  THEN 
Write!*, 1010)  Blank 
Call  Vt ab (Line) 

Write(*,1000)  It era, Query (8 : Length) 

C  1CC0  Format!'  <',I2,'>  ',  \ ) —-backslash — - 

1C00  Format ('$<', 12, '>' ,A,' :  ') 

Read(*,1010)  String 
1010  Format (A) 


ELSE 

Call  St rLen (St ring, LenRlb) 

If  (LenRlb. LE.0)  LenRlb  -  1 

Write (*,1020)  I  tern, Query (8 : Length) , String (i : LenRlb) 
1020  Format ('  <',I2,'>  ',A,':  ',A) 

ENDIF 

ELSE  IF  (Query  (5:S) .EQ.'L')  THEN 
IF  (Query (6:6) .EQ. 'D'J  THEM 

Write(*,1030)  I  tern, Query (8 : LenQry) , YesNo (NINT (Answer) ) 
1030  Format!'  <',I2,'>  A,':  ',9X,A) 

ELSE 

IF  (Nint (Answer) .EQ.l)  THEN 
to 

Answer  -  2.0 

ELSE 

Answer  ■  1.0 
ENDIF 
ENDIF 

ELSE  IF  (Query (5: 5) .EQ. 'R' )  THEN 
IF  (Query  (6:  6)  .EQ. 'D' )  THEN 

IF  (Answer. GE.0. 00001 .AND. Answer. LE. 999999.0)  THEN 

Write (*, 1040)  Item, Query (8 : LenQry) , Answer 
1040  Format  ('  <',I2,'>  ',F12.5) 

ELSE 

Write (*, 1050)  Item, Query (8 : LenQry) , Answer 
1050  Format ( '  <',I2,'>  ',A,':  ',E12.5) 

ENDIF 

ELSE 


Write (*, 1060)  Item, Query (8: LenQry) 

C  1060  Forreat('  <',I2,'>  ',A,':  ',\) - backslash - 

1060  Format ('$<', 12, '>  ',A,':  ') 

Call  Value (Answer, I ER) 

IF  (IER.NE.Oi  Goto  10 
ENDIF 

ELSE  IF  (Query (5: 5) .EQ.'I')  THEN 
IF  (Query (6:6) .EQ.'D')  THEN 

Write (*,1070)  Item, Query (8:LenQry) ,Nint (Answer) 
1070  Format  ('  <\I2,'>  ',A,':  ',112) 

ELSE 

Write (*,1080)  Item, Query (8 : LenQry) 

C  1080  Format!'  <',I2,'>  ',A,':  ',\>  - backslash- — 

1080  Format ('$<', 12, ' >  ',A,':  ') 

Call  Value (Answer, I ER) 

IF  (IER.NE.0)  Goto  10 
ENDIF 

Else  If  (Query (5: 5) .EQ. 'C' )  THEN 
Call  St rLen (Query (8 :), Length) 

If  (Query (6:6) .EQ. 'C' )  THEN 
Left  -  (80  -  Length)  /  2 
ELSE  If  (Query (6: 6) .EQ. 'R' )  THEN 
♦  I 

Left  -  (80-Length) 

ELSE 

Left  -  1 
ENDIF 

Write (*, 1090)  Blank (1 : Left) , Query (8: ) 

1090  Format (2A) 

ENDIF 

If  (Query  (6:  6)  .EQ. '  ?' )  THEN 
Query  (6:  6)  -  'D' 

Goto  10 
ENDIF 


Return 

END 

Logical  FunctionRel2Lo (Val ) 
C - 

C - 

If  (NINT (Val) .EQ. 1)  THEN 
Rel2Lo  -  . true. 

ELSE 


Rel2Lo  -  , false. 
ENDIF 


Return 

END 

SOBRoutln#  Shftxt (String) 


(Character  string  requested) 


(Logical  variable  -  will  output  'yes'  or  '  no') 


(if  changing  setting,  then  if  it  was  1  (=Yes) ,  switch 
(  2  (-No)  or  vise  versa) 


( real  values ) 

(filter  for  range  and  relate  to  format  display) 


{ Integer  values) 


(Comment  -  just  display  line,  no  response  possible) 

(If  comment  is  to  be  centered,  left  margin  is  1/2  of 
(  nonused  spaces) 

(if  it  is  to  be  right- just i fied,  then  margin  is  that 
(otherwise  it  starts  at  the  left  marginal) 


C  This  routine  shifts  a  dtring  over  to  the  left  and  pads  the  rest  with  blanks 
C 

Character*!*)  String 
Call  StrBeg (String, Istart) 

Call  StrLen (String, Length) 
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If  ( Length* 1 -I sea  re .  GT. C )  THEN 
If  (Iscart .oT. 1)  THEN 

String  (1 :  Length*  1-Ist arc)  *  String  (I start :  Length) 
-o  10  I  -  Length* 2- 1  start ,  Length 
St  ring (I: I)  »  '  ' 

ENDIF 
END  IF 
Return 
END 

Logical  Function  Str2Lo(Text) 


Character* (• )  Text 
Call  StrCap(Text) 

Call  StrBeg (Text, I sta  rt ) 

If  Cstart.LE.O)  THEN 
St r2Lo  -  . false . 

ELSE 

If  (Text (1st art : I  start) . EQ. ' Y' )  THEN 
Str2Lo  *  .true. 

ELSE 

Str2Lo  -  .false. 

END  IF 
END  IF 
Return 
END 

Subroutine  strbeg (string, lstartj 


Character* {• )  String 
Cali  St rLen (St ring, Length) 

IF  (Length. GT. 0)  THEN 
Do  10  I  *  1, Length 

10  If  (String  (1:1) .GE . ' a' . AND . String (I : I) , LE. *  zf )  String(I:I)  = 

&  Char  (Ichar  (' A' )  *  I  char  (St  ring  (1:1))  -Icha  r  ('  a' )  ) 

ENDIF 

Return 

END 

SUBROUTINE  STRLEN (STRING, Length) 

returns  as  LENGTH  the  position  of  the  last  non-blank  char,  in  STRING 


CHARACTER  * ( * )  STR I NG 

LENGTH  -  0 

LstChr  ■  Len (String) 

DO  10  I  -  1, LstChr 
J  -  LstChr  -*-1-1 
IF  (STRING  (J : J)  . NE .  '  ')  THEN 
Length  -  J 
Goto  11 
ENDIF 

10  CONTINUE 

11  RETURN 
END 

SUBROUTINE  StrVal (Respon, ANSWER, IER) 

C - - - 

C  Converts  the  String  Respon  into  a  real  value  (0  if  there  is  a  problem) 

C - 

CHARACTER • ( • )  RESPON, Va 1st  r*  2 1 , Poi nt • 1 , St  rA  rg*  2 1 , SYM* 1 
IER  -  0 
Answer  -  0 
Point  -  '  9 

Call  St cBeg (Respon, Ista rt) 

Call  St rLen (Respon, Length) 

If  (Length. LE. 0)  Goto  30 
Do  10  I  »  I  start, Length 

If  (Respond  :  I)  .EQ. '. ' )  Goto  20 
10  Continue 
Point  -  ' . ' 

20  If  (Length- 1  start* 1 . GT . 20)  Length-Istart* 1 9 
StrArg  •  Respon ( I  start : Length) / /Point 
Write(ValStr, 1000)  StrArg 
1000  Format (A) 

Read (ValStr, 1010, Err»30)  Answer 
1010  Format (G21. 5) 

Goto  40 
30  IER  -  1 
40  Return 
END 

SUBROUTINE  VALUE (ANSWER, IER) 
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reacs  a  :ea.  value  f  rc-  tr.e  <  ey  Dcara.  I Z?  *  Z  if  r.c  errcr,  1  otr.ervise. 


CHARACTER  RESPCN-2C 
Answer  *  C 
READf,13C0>  RES?CS 
FORMAT (Al 

Call  St  rLer.  (Respor.,  Length  i 
Z f  (length. CT. C)  THEN 

Call  St  rVal  (Respor.,  Answer,  IER1 
ELSE 

:er  -  : 

ESC  I F 

Return 

ESC 

SUBROUTINE  VTA3 (LINERS) 


moves  the  cursor  the  leftmost  position  on  CRT  line  LI NERO 


Writer,  1000)  CHAR  (2">)  //'  ('  /  /CHAR  ( I  CHAR  ('  C'  i  ♦  I  NT  «  (LIN’ERQ-1 )  / 1 0 )  ) 
£  //CHAR  C CHAR ( ' C'  ) ♦Mod ( (LineRq-I ) , 10) ) //' ; CH' 

1003  FORMAT (IX, A) 

RETURN 

END 

S'JBRoutine  Wait4R 


displays  a  prompt  in  line  22  £  waits  for  a  return  key  press 


Cnaracter'I  respor 

Call  Not ice ( ' \?ress  (RETURN]  to  continue:  ',. false 23) 
Read(*,lC10)  Respon 
1 C 1 3  Format (A) 

Return 

ENT 

SUBROUTINE  WARNIN (Messag, Clear, Line) 


C  This  subroutine  displays  the  MESSAge  centered  on  LINE  and  will  clear  the  screen  if  CLEAR  is  true.  It  waits  for  a  Response 
C  before  Defore  returning  control. 


Cha racter* ( * )  Messag 
Cr.aracte r*3C  Blank 
Logical  Clear 
Data  Blank/'  '  / 

Call  St rlen (Messag, Length) 

Margin  -  (80  -  Length)  /  2 
If  (Margin. LE. 0)  Margin  •  1 
If  (Clear)  Call  Page (' Dummy ' ) 

10  Call  Vtab(Line) 

Write  (*, 1000) Blank (l:Margin),Messag(l: Length) 
1 CCC  Format (2A) 

Call  Wait 4R 

Return 

END 

Character's  Function  YesNo (Boolen) 


Logical  Boolen 
if  (Boolen)  THEN 
YesNo  -  'Yes' 
ELSE 

YesNo  *  '  No' 
end:  f 
Return 
END 
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